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SCHEDULING  IRRIGATIONS  USING 
A  PROGRAMMABLE  CALCULATOR1 

Dennis  C.  Kincaid  and  Dale  F.  Heerman2 
INTRODUCTION 


Using  an  on-location  programmable  calculator, 
irrigation  schedules  may  be  available  on  the  same 
day  that  update  calculations  are  made  and  without 
making  long  distance  telephone  calls  to  transmit 
data. 

Computerized  irrigation  scheduling  has  been 
made  possible  by  a  U.S.  Department  of  Agricul- 
ture program  as  developed  by  Jensen  and  asso- 
ciates (1969,  1970)3  for  the  large  digital  com- 
puters. It  has  proven  reliable  in  arid  and  semiarid 
regions  for  a  variety  of  crops,  and  it  is  now  used 
on  a  commercial  basis  in  Arizona,  Idaho,  and  Ne- 
braska and  on  applied  research  in  Colorado  and 
Wyoming. 

During  the  1969,  1970,  and  1971  seasons,  irri- 
gations were  successfully  scheduled  at  the  Univer- 
sity of  Nebraska  Experiment  Station  near  Mitchell, 
Nebr.,  using  a  Control  Data  Corporation  6400 
computer  at  Colorado  State  University,  Fort  Col- 
lins. Daily  weather  data  and  irrigation  data  were 
compiled  and  telephoned  from  Mitchell  to  Fort 
Collins  twice  each  week  where  the  data  were 
punched  on  cards  and  processed  on  the  computer. 
The  irrigation  schedules  were  then  mailed  to  Mit- 
chell, arriving  at  the  field  station  two  days  later. 
The  delay  demonstrated  the  need  for  doing  the 
scheduling  calculations  at  a  field  location. 


1  Research  by  the  Agricultural  Research  Service,  U.S.  Dept. 
of  Agr.,  in  cooperation  with  the  Colo,  and  Nebr.  Agr.  Exp.  Stas. 
(Journal  Series  Paper  Number  3604,  Nebr.  Agr.  Exp.  Sta.) 

2  Agricultural  engineers,  Agricultural  Research  Service,  U.S. 
Dept.  of  Agr.,  Coshocton,  Ohio  (formerly  of  Mitchell,  Nebr.),  and 
Fort  Collins,  Colo.,  respectively. 

3  References  to  Literature  Cited,  p.  00  are  indicated  by  the 
name  of  the  author(s)  followed  by  the  year  of  the  publication  in 
italic. 


In  June  1972,  a  Wang  600-6  programmable 
calculator  was  obtained  for  the  Mitchell  station  to 
make  same  day  on-location  calculations.  This  unit 
has  16  data  storage  registers,  824  program  steps 
(which  can  be  converted  to  data  storage),  a  mag- 
netic tape  cassette  unit  for  program  and  data  stor- 
age (between  updating),  and  an  automatic  drum 
printer.  The  USDA  irrigation  scheduling  program 
was  successfully  adapted  to  the  calculator  and 
used  during  the  1972  irrigation  season.  The  sched- 
ules were  updated  twice  each  week  using  the  same 
input  data  as  with  the  CDC  6400  but  with  a  special 
output  format  suited  to  the  calculator's  tape  print- 
out device. 

The  scheduling  program  has  been  adapted  for 
the  Wang  Model  700  calculator  which  has  960 
program  steps.  This  unit  also  has  the  capability  of 
converting  program  steps  to  data  storage,  and  a 
magnetic  tape  cassette.  The  Model  700  uses 
typewriter  output  which  facilitates  labeling  and 
tabulation  of  the  data.  The  program  also  has  been 
adapted  to  a  Monroe  1665  but  there  are  severe 
program  step  and  data  storage  limitations  with  this 
machine.  A  complete  listing  of  programs  (for  the 
Wang  units)  for  calculating  potential  evapotrans- 
piration  and  scheduling  irrigations  is  given  in  the 
Appendix.  Operating  instructions,  test  data,  and 
the  constants  used  for  various  crops  are  given  in 
the  text. 

The  following  Theory  and  Logic  section  serves 
as  a  basic  reference  for  adapting  the  scheduling 
techniques  to  other  types  of  calculator  or  com- 
puter systems. 
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THEORY  AND  LOGIC  OF  IRRIGATION  SCHEDULING  USING  WEATHER  DATA 


Theory  of  Potential  Evapotranspiration 

Potential  evapotranspiration  (ET)  as  used  here 
is  the  rate  of  water  use  by  a  thoroughly  watered 
reference  crop  —  in  this  instance,  alfalfa  with  12 
to  18  inches  of  growth.  To  arrive  at  ET,  Penman 
(1963)  developed  an  equation  that  determines  the 
total  energy  available  for  evaporation.  This  is  a 
combination  equation,  which  means  that  it  in- 
cludes net  radiation  and  advective  energy  because 
of  wind  movement.  The  daily  potential  evapotran- 
spiration in  inches  of  water  is  given  by 

£tp  =0.000673^0,  (R„  -  G)  +  15.36  C2  (1.1  +0.017W)  (e ,  -ed)j  (1) 

where, 

Ci  and  C2  -  mean  air  temperature  weighting 
factors  whose  sum  is  1 

es-mean  saturation  vapor  pressure  in  mb 
(mean  of  the  saturation  vapor  pressures  at 
maximum  and  minimum  daily  air  temper- 
atures) 

ed  -  saturation  vapor  pressure  at  mean  dew- 
point  temperature  in  mb  (mean  of  24  hourly 
readings) 

W- total  daily  wind  movement  in  miles 

Rn  -  daily  net  radiation  in  cal  cm-2  (calories 

per  square  centimeter) 
G  -  daily  soil  heat  flux  in  cal  cm-2 
The  wind  function  coefficients  (1.1  +  0.017W) 
were  calibrated  with  data  collected  at  Mitchell, 
Nebr.  These  coefficients  are  nearly  the  same  as 
those  reported  by  Jensen  (1969)  for  Twin  Falls, 
Idaho. 

The  dimensionless  weighting  factors  Ci  and  C2 
are  given  by 

C,  =  A/(A+?)  (la) 
C2  =  ?/(A+y)  (lb) 

where  A  is  the  slope  of  the  saturation  vapor 
pressure-temperature  curve  (de/dT)  and  v  is  the 
psychrometric  constant.  Ci  and  C2  are  functions 
of  air  temperature  only,  and  for  calculation  pur- 
poses are  given  by  the  equations 

C2  =  0.959  -  0.0125  T+  0.00004534 T2  (lc) 

and 

C,  =  l-C2  (Id) 

where  T  is  the  mean  daily  air  temperature  in  de- 


grees F  (average  of  maximum  and  minimum  daily 
air  temperature). 

The  saturation  vapor  pressure  is  a  function  of 
temperature  and  is  calculated  by  the  equation 

e(T)  =  -0.6959  +  0.2946  T  -  0.005195  T2  +  89  x  10"6  (le) 

where  e  denotes  saturation  vapor  pressure  in  mb, 
and  T  is  the  temperature  in  degrees  F. 

The  soil  heat  flux  is  determined  by  an  empirical 
equation 

G  =  5x(T-(T_,  +T_2+T_3)/3)  (If) 

where  T  is  mean  daily  temperature  in  degrees  F, 
and  T_j  is  the  mean  air  temperature  for  the  /th 
previous  day. 

Daily  net  radiation  is  estimated  by  the  equation 

R„  =0.77Rs-[^---  +  0.IjRl!O  (lg) 

where 

R  s  —  the  total  daily  solar  radiation  in  cal  cm-2 
Rso  -  the  total  solar  radiation  that  would  be  ex- 
pected on  a  clear  day,  cal  cm-2 
Rb0  —  the  net  outgoing  longwave  radiation  on  a 
clear  day,  cal  cm-2 
the  first  term  (0.77  Rs )  represents  the  net  short- 
wave radiation  absorbed  by  a  green  crop  at  full 
cover.  The  remaining  term  represents  the  net  out- 
going longwave  radiation.  The  coefficients  0.9  and 
0.1  were  determined  from  data  from  Mitchell, 
Nebr.  At  this  location,  Rso  is  estimated  by  the 
equation 

rDay-107~|2 

RM=760exp-|_  yi5?     j  (lh) 

where  Day  1  =  March  1  and  Rb0  is  computed  by 
the  equation 

Rb0  =(0.37-0.044  Ve;)  (11.71  x  lO-')^''^11  *j  (lj) 

11.71  x  10-8  is  the  Stefan-Boltzmann  constant  in 
cal  cm-2  day-1  °K~4,  and  Ta  and  Tb  are  respec- 
tively the  maximum  and  minimum  daily  air  tem- 
peratures in  °K.  The  coefficients  (0.37,  0.044) 
were  calibrated  with  data  from  Mitchell.  Calibra- 
tion techniques  were  those  used  by  Wright  and 
Jensen  (1972). 
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Scheduling  Program 

A  flow  chart  of  the  irrigation  scheduling  pro- 
gram is  shown  in  figure  1.  The  program  maintains 
a  water  budget  on  each  field,  starting  at  a  time  at 
which  the  soil  water  depletion  is  known  or  can  be 
determined.  Twice  each  week  the  depletion  of  each 
field  is  determined  based  on  calculated  ET  and 
rainfall  and  irrigation  amounts.  When  the  update 
is  completed,  the  depletion  is  compared  with  the 
optimum  (maximum  desirable)  depletion  to  deter- 
mine when  irrigation  is  required.  The  irrigation 
amount  to  apply  is  the  depletion  divided  by  an 
assumed  irrigation  efficiency. 

If  the  depletion  at  present  is  greater  than  opti- 
mum, the  day  to  irrigate  is  calculated  to  approxi- 
mate the  day  when  optimum  depletion  was 
reached.  This  gives  an  indication  of  the  delay  in 
irrigating  that  field.  If  the  current  depletion  is  less 
than  optimum  the  irrigation  is  forecasted.  The 
daily  ET  for  prediction  purposes  is  calculated  on 


Calculate  irrigation  day, 
inches  to  apply,  acre- 
inches  to  apply,  PRINT 
Day,   Inches,  Acre-inches. 
Increment  field  register 
number . 


Calc.  average 
potential  ET,  E 
Zero  rain  +  irr.  amt 


Display  Date,  Field 
STOP 

-If  Field  No.  »  0,  exit 
key  Rain  +  Irr.  amt. 
key  GO 


PRINT  Field  No. , 
Depletion,  Optimum 
dep letion. 
Repack  field  data. 


Calc.  crop  coefficient 
before  effective  cover 
Calc.  optimum  depletion 


Increment  DatE 


Crop  coefficient 
after  eff.  cover 
Maximum  opt.  dep. 


Reduce  crop  coefficient  fo 
soil  water  stress . 


Set  rainfall  amounts  fo 
previous  three  days. 


Calculate  additional  ET  from  ra 
or  irr.  within  3  previous  days. 


Calculate  depletion. 


Table  1. — Guide  for  establishing  the  effective 
cover  date 

Crop  Effective  cover 

Small  grains  at  heading 

Beans  bloom  or  about  50  days  after 

planting 

Peas  full  bloom  or  70  days  after 

planting 

Potatoes  about   80  days  after  planting 

Sugarbeets  about  110  days  after  planting 

Corn  or  sorghum  about  10  days  after  tasseling  on 

corn  and  heading  for  sorghum 
Alfalfa  all  season  except  30  days  after 

growth  begins  in  spring  and  20 

days  after  cuttings 
Pasture   all  season  except  30  days  after 

growth  begins  in  the  spring 


the  basis  of  a  climatic  average  potential  ET  curve 
for  a  given  location.  The  average  potential  at  Mit- 
chell, Nebr.,  is  given  by 


0.3  exp 


j~Day  -  137~[2 
"L  ^  Day  J 


(2) 


where  day  1  —  March  1 

A  Day  -  150  if  Day  <  137 
and  A  Day  -   95  if  Day  >  137 

Near  the  end  of  the  growing  season  the  crop 
water  use  rate  approaches  zero  since  both  the 
potential  ET  and  the  crop  coefficient  (equation  3) 
are  decreasing.  An  additional  irrigation  may  not 
be  required  where  the  depletion  is  low  at  the  time 
of  a  late  season  update.  The  program  stops  incre- 
menting the  day  when  the  depletion  has  been 
determined  to  November  1. 

The  determination  of  daily  water  use  involves  a 
crop  coefficient  Kco  which  is  defined  as  the  ratio 
of  the  crop  ET  to  the  potential  ET  for  a  given  day 
under  thoroughly  watered  conditions.  This  empir- 
ical coefficient  varies  with  time  depending  upon 
the  type  of  crop,  its  planting  date,  and  effective 
cover  date  (table  1)  or  expected  date  of  peak 
water  use.  For  calculation  purposes,  Kco  is  given 
as  a  polynomial  function  of  the  date 


Ar3  +  Br2  +  Cr  +  D 


(3) 


Figure  I.  —  Flow  chart  for  the  irrigation  scheduling  program. 


where  A,  8,  C,  and  D  are  constants.  Before  the 
effective  cover  date,  r  is  the  fraction  of  time  from 
planting  to  effective  cover.  After  effective  cover,  r 
is  the  number  of  days  beyond  the  effective  cover 
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date.  Two  sets  of  constants  are  used  for  each 
crop  (table  2),  and  the  crop  curves  at  Mitchell  are 
plotted  in  figures  2  through  5.  These  are  standard 
crop  curves  derived  from  data  taken  at  several 
locations  in  semiarid  regions  by  Jensen  an  others 
(1969,  1970,  1971). 


Table  2.  —  Polynomial  constants  for  crop  curves 


Crop  Constant 
 A  B  C  D 

Before  effective  cover 

Corn   -1.583  2.756  -  .4276  0.213 

Sugarbeets  .     -1.435  2.382  -  .2259  .200 

Beans   -1.353  2.562  -  .3532  .212 

Alfalfa  0  .0  1.087  .250 

Small  grain  .     -2.893  4.843  -1.140  .233 

Peas   -1.321  2.470  -  .3067  .211 

Potatoes...     -1.381  2.456  -.3710  .213 

Pasture    ...         .0  .0  1.508  .25 

After  effective  cover 

Corn   275  x  10  8  -4688  X  10~7       0.01195  0.915 

Sugarbeets  .-167  x  10  a  5  x  10"5         .0  .899 

Beans   165  x  10"8  -2644  X  10~7  -112  x  10~6  1.05 

Alfalfa  0  .0  .025  .5 

Small  grain  .   444  x  10~8  -7261  x  10~7   8532  x  10"6  1.022 

Peas  -221  x  10~7  -9865  x  10"7  -101  x  10"4  1.005 

Potatoes  ...         .0  .0  .0  .90 

Pasture    ...         .0  .0  .0  .87 


o  I  ,  ,  ,  ,  1  ,  ,  ,  ,  ,  ,  ,  ,  ,  ,— 

0  20  40  60  80  100     10     20     30    40     50    60    70    80    90  100 

Percent  of  time  front  planting  Days  offer  full  cover 

to  effective  full  cover 

Figure  2.  —  Ratio  of  crop  ET  to  potential  ET  for  com. 
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0  20  40  60  80  I0O    10    20    30    40    50    60    70    80    90  100 

Percent  of  time  from  planting  Days  after  full  cover 

to  effective  full  cover 


The  crop  curve  for  alfalfa  is  unique  in  that  the 
water  use  decreases  after  each  harvest  until  re- 
growth  occurs.  The  planting  date  for  alfalfa  is  set 
equal  to  the  approximate  time  at  which  growth 
starts.  The  effective  cover  date  is  initially  set  to 
the  approximate  date  of  first  cutting.  After  the  first 
cutting  occurs  and  for  each  cutting  thereafter,  the 
effective  cover  date  is  set  equal  to  the  last  cutting 
date.  Kco  is  not  allowed  to  exceed  a  value  of  1. 

The  daily  crop  ET  depends  upon  the  availability 
of  soil  water,  and  decreases  as  the  depletion  in- 
creases. The  crop  coefficient  Kco  is  multiplied  by 
the  stress  factor 


where  DP  is  the  soil  water  depletion  and  DT  is 
the  total  available  water  within  the  root  zone  at 
field  capacity. 

The  optimum  depletion  D0  is  an  assumed  con- 
stant fraction  of  the  total  available  water.  The  root 
zone  expands  with  time  from  planting  until  a  max- 
imum depth  is  reached  near  the  effective  cover 
date.  For  simplicity,  the  computed  rooting  depth 
increases  linearly  from  a  minimum  value  at  plant- 
ing to  a  maximum  value  at  effective  cover.  Table 


o  I  .  .  ,  ■  1  .  .  .  .  .  .  .  .  ■  

O  20  40  60  80  HOO     10     2  0     30    4  0     50    60     7  0    8  0    90  I0O 

Percent  of  time  from  planting  Days  otter  full  cover 

to  effective  full  cover 


Figure  4.  —  Ratio  of  crop  ET  to  potential  ET  tor  sugarbeets. 


O  20  40  60  80  100  20  40  60  80  100 

Percent  of  time  from  start  of  Days  after  harvest 

growth  to   first  harvest 


Figure  3.  —  Ratio  of  crop  ET  to  potential  ET  for  beans.  Figure  5.  —  Ratio  of  crop  ET  to  potential  ET  for  alfalfa. 


4 


Table  3.  —  Initial  and  maximum  root  zone  depths 


Depth  after 

Crop                       Depth  at  planting  effective  cover 

Feet  Feet 

Corn                                  0.5  4.0 

Sugarbeets                          0  3.5 

Beans                                  .5  3.0 

Alfalfa                                 6.0  6.0 


3  lists  the  root  depths  used  for  each  crop  at  Mit- 
chell. The  initial  depths  were  chosen  such  that  a 
linear  increase  from  planting  to  effective  cover 
would  approximate  the  actual  root  development. 

When  irrigations  are  scheduled  near  the  plant- 
ing date,  the  root  zone  may  be  too  small.  Optimum 
depletion  in  this  program  is  taken  as  50  percent 
of  the  total  available  water  within  the  root  zone. 
For  example,  the  water  holding  capacity  of  the  fine 
sandy  loam  soil  at  Mitchell  is  approximately  2.7 
inches  per  foot.  One  inch  of  water  per  foot  is  un- 
available, leaving  1.7  inches  available,  and  .85 
inch  as  the  optimum  depletion  per  foot.  The  opti- 
mum depletion  per  foot  is  stored  for  each  field 
and  can  be  adjusted  from  zero  to  one  inch  to  ac- 
count for  varying  soil  types  within  a  group  of  fields. 
The  optimum  depletion  per  foot  can  also  be  re- 
duced to  account  for  a  shallow  soil  profile  on  an 
individual  field.  The  optimum  depletion  D0  is  the 
rooting  depth  times  the  optimum  depletion  per 
foot. 

The  daily  water  use  is  less  than  the  potential 


water  use  whenever  Kco  is  less  than  one.  However, 
immediately  following  an  irrigation  or  rainfall,  the 
water  use  will  be  near  potential  because  of  evapor- 
ation from  the  soil  surface.  The  additional  water 
use  because  of  evaporation  on  a  given  day  is  deter- 
mined by  the  equation 

E„  =Kr  (0.9 -Kc  )E,P  (5) 

where 

EtP  -  the  potential  evapotranspiration 

Kc  -  the  crop  coefficient  determined  by  the  stage 

of  growth  and  soil  water  depletion 

(Kc  =KC0KS),  and 
Kr  -  a  coefficient  taking  on  the  values  of 

0.8  for  the  first  day, 

0.5  for  the  second  day, 

0.3  for  the  third  day  following  rainfall  or  irriga- 
tion, respectively. 

If  Kc  >  0.9,  or  if  no  rain  or  irrigation  has  oc- 
curred within  3  days,  then  Etr  is  equal  to  zero. 
The  water  balance  equation,  applied  to  each  field 
for  each  day,  is 

Dn  =  DPi_1  +  KcEtp+E,r-Ri  (6) 

where 

Dp;  —  the  depletion  on  Day  /'  and 

Ri  -  the  sum  of  rainfall  and  irrigation  for  Day  /. 

If  R,  is  larger  than  the  previous  depletion  plus 
ET,  then  the  depletion  is  set  to  zero.  Irrigation 
amounts  often  cannot  be  measured  and  must  be 
estimated,  unless  it  is  assumed  that  irrigation  was 
sufficient  to  replenish  the  soil  water  to  field  ca- 
pacity. 


OPERATING  INSTRUCTIONS 


Tabulating  and  Initializing  Field  Data 

Scheduled  fields  are  updated  in  groups  of  up  to 
18  fields  (12  fields  on  the  Wang  700)  in  a  single 
crop.  The  data  for  each  individual  field  or  sched- 
uled area  are  stored  in  two  consecutive  data  regis- 
ters starting  with  register  16  (20  on  the  Model 
700).  The  data  are  packed  into  the  registers  to 
utilize  the  entire  12  digit  capacity  of  each  register. 
The  data  required  for  each  field  are  as  follows: 

1.  Data  for  such  even  numbered  registers  as 
16  or  18 

a.  Field  number,  2  digits. 

b.  Irrigation  efficiency,  percent,  2  digits. 

c.  Crop  area,  acres  multiplied  by  10,  3 
digits. 


d.  Optimum  depletion,  inches  per  foot  by 
100,  2  digits. 

e.  Soil  moisture  depletion,  inches  by  100,  3 
digits. 

2.  Data  for  odd  numbered  registers,  17  or  19 

a.  Rain  or  irrigation  up  to  1  inch  for  first 
day  before  first  day  of  update,  inches 
multiplied  by  100,  2  digits. 

b.  Rain  for  second  previous  day,  inches 
by  100,  2  digits. 

c.  Rain  for  third  previous  day,  inches  by 
100,  2  digits. 

d.  Planting  date  (Day  1  -  March  1),  3 
digits. 

e.  Effective  cover  date  (Day  1  —  March  1), 
3  digits. 
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Table  4.  —  Sample  field  data  for  testing  the 
scheduling  program 


CD 

n 
E 


ce 


E 

.2it  o 

U_  LU  < 


Q. 

a> 

T3 

i| 

E  « 

+=  Cl 
Q.  CD 

O  Q 


DO 
CD 
CC 


3  B 

.E  ? 

i  I  I  «■  s 

cc  cc  o:  cl  o 


16  017503485332 

18  027505085255 

20  037004250115 

22  047002550065 

24  056510060135 

26  066520060085 

28  076032070225 

30  086035070170 

32  095545080305 

34  105550080025 

36  115001599110 

38  125090099250 


17  010101065132 

19  010000065132 

21  000101065132 

23  000100065132 

25  000001065132 

27  900000065132 

29  909090065132 

31  009000065132 

33  000090065132 

35  000000065132 

37  000000065132 

39  000000065132 


1  The  register  numbers  listed  are  for  the  Model  600  program. 
The  Model  700  program  stores  data  in  registers  20-43. 


The  field  number  is  an  identifier  for  a  scheduled 
area  which  may  include  more  than  one  actual  field. 
The  acreage  is  the  total  area  scheduled  as  one 
field  up  to  100  acres.  Fields  larger  than  100  acres 
could  be  stored  as  whole  acres,  and  the  resulting 
volume  in  acre-inches  multiplied  by  10.  The  irri- 
gation efficiency  is  estimated  as  the  expected  per- 
centage of  the  total  water  applied  which  is  added 
to  the  root  zone  of  the  crop.  The  soil  moisture  de- 
pletion may  be  set  to  zero  at  the  beginning  of  the 
season  or  may  be  estimated.  The  depletion  can  be 
adjusted  if  necessary  at  any  time  during  the  sea- 
son. The  rainfall  amounts  may  be  set  to  zero  ini- 
tially. Rain  or  irrigation  in  excess  of  .99  inch  is 
disregarded  for  previous  days.  The  effective  cover 
date  is  the  expected  date  of  peak  water  use  and 
may  be  constant  for  a  given  crop. 

The  above  data  are  keyed  into  display  in  the 
order  given  and  then  stored  manually  into  the 
proper  register.  The  value  of  all  unused  field  reg- 
isters should  be  set  to  zero. 

The  field  data  stored  in  the  calculator  memory 
are  transferred  to  magnetic  tape  as  one  block  of 
data.  Model  700  processes  the  field  data  as  part 
of  the  scheduling  program  for  each  crop,  and  the 
program  and  field  data  are  recorded  in  one  oper- 
ation. Wang  600  processes  data  separately  from 
the  program.  A  block  of  fields  is  recorded  on  tape 
by  keying  51  alpha  store,  since  all  registers  up  to 


51  are  available  for  field  data.  The  data  should 
be  recorded  immediately  following  the  scheduling 
program  for  that  particular  crop  on  the  Model  600. 

Table  4  lists  a  sample  set  of  field  data  which 
can  be  used  for  testing  the  scheduling  programs. 

Calculating  Potential  Evapotranspiration 

The  daily  potential  ET  is  calculated  with  the 
modified  Penman  equation  as  calibrated  at  Mit- 
chell, Nebr.  The  data  required  are  daily  maximum 
and  minimum  air  temperatures,  mean  dewpoint 
temperature  in  degrees  F,  total  solar  radiation  in 
Langleys,  and  total  wind  movement  in  miles  at  2 
meters  above  the  ground.  These  data  are  totaled 
or  averaged  from  midnight  to  midnight  each  day. 

The  weather  data  are  tabulated  for  each  day  of 
update  and  keyed  into  the  calculator  before  run- 
ning the  scheduling  programs.  The  steps  involved 
are  as  follows: 

1.  Load  and  verify  the  Penman  program,  turn 
printer  on.  (Model  700  —  Load  and  verify 
Penman  program,  PRIME  and  GO) 

2.  Key  the  average  temperature  for  the  jtiird 
day  before  the  first  day  of  update,  T_3  . 
(Model  700  —  Manually  type  in  beginning 
date,  return  typewriter  to  automatic  and 
depress  GO.) 

3.  Key  Search  0. 

4.  Key  average  temperature  for  the  second 
previous  day,  T_2  key  GO. 

5.  Key  average  temperature  for  the  first  pre- 
vious day,  T-i  key  GO. 

6.  Key  the  first  day  of  update  (Day  1  —  March 
1),  key  GO. 

7.  Key  maximum  temperature  for  the  day 
printed,  key  GO. 

8.  Key  minimum  temperature,  key  GO. 

9.  Key  dewpoint  temperature,  key  GO. 

10.  Key  solar  radiation,  key  GO. 

11.  Key  wind,  key  GO. 

12.  Repeat  steps  7-11  for  up  to  4  days  of 
update. 

The  Penman  program  sums  the  day  number  and 
calculated  potential  ET  for  each  day.  These  values 
are  stored  in  registers  52-55  (12-15  on  the  Model 
700).  When  only  3  days  are  calculated,  the  poten- 
tial ET  for  the  fourth  day  is  set  equal  to  zero.  The 
printed  output'  lists  average  temperature,  mean 
vapor  pressure,  dewpoint  vapor  pressure,  soil  heat 
flux,  net  radiation,  and  potential  ET  as  well  as  the 
input  data.  An  example  of  the  weather  data  print- 
out, Model  600,  is  shown  in  table  5  for  two  4-day 
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Table  5.  —  Daily  weather  data  and  calculated  potential  ET,  Model  600 


Day                                    72.           73.  74.  75.  201.  202.  203.  204. 

Maximum  temperature  .  .    55.           54.  59.  72.  85.           88.  80.  68. 

Minimum  temperature  .  .    44.           38.  38.  36.  53.           49.  51.  50. 

Dewpoint  temperature  .  .    30.           28.  26.  27.  31.           35.  41.  29. 

Radiation  Rs    100.  200.  381.  551.  504.  486.  283.  505. 

Wind  run,  miles   108.  204.  338.  149.  139.           78.  141.  164. 

Average  temperature  .  .  .  '49.5  ^.O  H8.5  '54.0  269.0  268.5  265.5  259.0 

Mean  vapor  pressure  .  .  .     12.194      10.979  12.380  17.066      27.521      28.693  23.907  17.735 

Dewpoint  vapor  pressure       5.869        5.433  5.016  5.222        6.095        7.067  8.783  5.649 

Soil  heat  flow,  G                  15.00         1.66  10.83  30.00        32.50        17.50  -12.50  -43.33 

Net  radiation,  R„                  32.           86.  177.  260.  170.  168.  98.  179. 

Potential  ET  093          .155  .300  .275          .303          .240  .232  .277 


1  Average  temperatures  before  day  72  were  T_3  =  52.0,  T_2  =  44.0,  T-i  =  43.5. 

2  Average  temperatures  before  day  201  were  T_3  =61.5,  T_2  =  59.5,  T_i  =66.5. 


Table  6.  —  Calculated  weather  data  and  potential  ET,  Model  700 


LOCATION  Scottsbluff  BEGINNING  DATE  May  11 

DAY 

TAVG 

RS 

UA 

VPS 

VPD 

RN 

G 

EO 

72 

49.5 

100 

108.0 

12.1 

5.8 

32 

15.0 

.093 

73 

46.0 

200 

204.0 

10.9 

5.4 

86 

1.6 

.155 

74 

48.5 

381 

338.0 

12.3 

5.0 

177 

10.8 

.300 

75 

54.0 

551 

149.0 

17.0 

5.2 

260 

30.0 

.275 

LOCATION  Scottsbluff  BEGINNING  DATE  September  17 

DAY 

TAVG 

RS 

UA 

VPS 

VPD 

RN 

G 

EO 

201 

69.0 

504 

139.0 

27.5 

6.0 

170 

32.5 

.303 

202 

68.5 

486 

78.0 

28.6 

7.0 

168 

17.5 

.240 

203 

65.5 

283 

141.0 

23.9 

8.7 

98 

-12.5 

.232 

204 

59.0 

505 

164.0 

17.7 

5.6 

179 

-43.3 

.277 

periods.  The  calculator  prints  the  data  on  paper 
tape  which  is  posted  on  a  previously  prepared 
form. 

The  output  for  the  Model  700  is  shown  in  table 
6.  The  Model  700  Penman  program  also  prints  the 
heading  for  the  output  of  the  scheduling  programs. 
A  separate  sheet  is  inserted  and  Search  2  is  keyed 
for  printing  the  heading  for  the  schedule  output. 

Updating  the  Schedule 

After  the  Penman  program  has  been  run,  the 
dates  and  potential  ET  values  are  in  memory  and 
will  remain  there  until  the  scheduling  is  completed. 
The  next  step  is  to  insert  a  tape  containing  a 
scheduling  program  and  data.  After  loading  the 
program,  key  PRIME,  GO,  and  the  first  field  num- 
ber will  appear  with  the  date  in  display.  The  field 
number  will  be  to  the  right  of  the  decimal  (register 
X  on  the  Model  700).  At  this  point,  the  field  data 
have  been  unpacked  and  are  stored  in  registers 
0  to  6,  8,  and  11  as  follows: 


Register  Data  stored 

0  ...  Effective  cover  date 

1  ...  Rainfall  for  previous  day 

2  ...  Rainfall  for  second  previous  day 

3  ...  Rainfall  for  third  previous  day 

4  ...  Planting  date 

5  ...  Irrigation  efficiency,  acres  and 

optimum  depletion  per  foot 
(stored  as  an  unpacked  number) 

6  ...  Depletion 
8     ...  Date 

11     ...  Field  number1 


1  Model  700  includes  the  field  number  in  register  5,  not 
register  11. 

Adjustments  may  be  made  to  any  of  the  above 
data  by  restoring  the  desired  values  in  the  indi- 
cated registers.  For  example,  the  effective  cover 
date  for  alfalfa  that  has  just  been  cut  can  be 
changed  by  entering  the  date  and  storing  directly 
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Table  7.— 


Updated  irrigation  schedule,  Model  600, 
beginning  September  17 


Table  8.  —  Updated  irrigation  schedule,  Model  700, 
location  Scottsbluff  beginning  September  17 


Crop:  Corn 

Field  number  

1. 

5. 

9. 

Depletion,  inches  .  . 

.22 

1.72 

3.42 

Optimum  depletion  . 

3.40 

2.40 

3.20 

Day  to  irrigate  

-1. 

222. 

202. 

none 

Oct.  8 

Sept.  18 

Inches  to  apply  .... 

2.0 

3.8 

6.1 

Acre-in.  to  apply 

6.8 

37.1 

277.9 

Field  number  

2. 

6. 

10. 

Depletion,  inches  .  . 

2.92 

1.50 

.27 

Optimum  depletion 

3.40 

2.40 

3.20 

Day  to  irrigate  

215. 

233. 

-1. 

Oct.  1 

Oct.  19 

none 

Inches  to  apply  .... 

4.5 

3.6 

2.8 

Acre-in.  to  apply  .  .  . 

22.7 

73.9 

141.1 

Field  number  

3. 

7. 

11. 

Depletion,  inches  . 

1.54 

2.84 

.28 

Optimum  depletion 

2.00 

2.80 

3.96 

Day  to  irrigate  

214. 

204. 

-1. 

Sept.  30 

Sept.  20 

none 

Inches  to  apply  .... 

2.8 

4.7 

3.1 

Acre-in.  to  apply  .  .  . 

11.9 

150.9 

4.7 

Field  number  

4. 

8. 

12. 

Depletion,  inches  . 

.22 

0.00 

2.87 

Optimum  depletion  . 

2.00 

2.80 

3.96 

Day  to  irrigate  

-1. 

-1. 

245. 

none 

none 

Oct.  31 

Inches  to  apply  .... 

2.1 

2.2 

7.7 

Acre-in.  to  apply  .  .  . 

5.3 

79.6 

700.6 

Depletion  Amount  to  apply 

Field    Estimated  Optimum    Day  to  irrigate  Inches  Acre-inches 


Corn 


1 

.22 

3.40 

247 

Wov.  2 

2.0 

6.8 

2 

2.92 

3.40 

215 

Oct.  1 

4.5 

22.7 

3 

1.54 

2.00 

214 

Sept.  30 

2.8 

11.9 

4 

.22 

2.00 

247 

Nov.  2 

2.1 

5.3 

5 

1.72 

2.40 

222 

Oct.  8 

3.7 

37.1 

6 

1.50 

2.40 

233 

Oct.  19 

3.6 

73.9 

7 

2.84 

2.80 

204 

Sept.  20 

4.7 

150.9 

8 

.00 

2.80 

247 

Nov.  2 

2.2 

79.6 

9 

3.42 

3.20 

202 

Sept.  18 

6.1 

278.0 

10 

.27 

3.20 

247 

Nov.  2 

2.8 

141.2 

11 

.28 

3.96 

247 

Nov.  2 

3.1 

4.7 

12 

2.87 

3.96 

245 

Oct.  31 

7.7 

700.7* 

1  Day  247  indicates  no  irrigation  is  needed.  Amount  to  apply 
is  the  depletion  as  of  November  1. 


pleted,  the  calculator  will  automatically  printout 
the  field  number,  updated  depletion,  calculated 
optimum  depletion,  the  day  to  irrigate,  inches  of 
water  to  apply,  and  volume  of  water  required  in 
acre-inches.  These  data  are  repacked  and  those 
for  the  next  field  are  then  recalled.  The  field  num- 
ber for  the  latter  will  appear  in  display  along  with 
beginning  day  for  update.  Each  field  is  updated  in 
the  same  manner. 


into  register  0.  A  measurement  of  the  actual  de- 
pletion may  be  stored  directly  into  register  6  if  an 
adjustment  is  required.  These  adjusted  values  will 
then  be  used  in  calculating  a  new  irrigation  sched- 
ule and  be  repacked  for  the  next  update.  For  each 
day  of  update,  key  the  sum  of  rainfall  plus  irriga- 
tion water  applied  and  depress  GO.  The  new  deple- 
tion will  be  calculated  and  the  next  day  will  appear 
in  display.  When  the  last  day  of  update  is  com- 


When  all  fields  have  been  updated,  the  field 
number  appearing  in  display  will  be  zero  providing 
there  are  less  than  18  (12  on  the  Model  700)  fields 
in  the  block.  At  this  point  a  field  may  be  added  to 
the  schedule  simply  by  storing  the  required  data 
in  registers  0  to  6,  8,  11,  and  updated.  The  data 
for  the  new  field  are  repacked  after  the  updating 
is  completed  and  will  be  stored  on  the  magnetic 
tape  for  use  in  the  next  update. 


Table  9.  —  Sample  rainfall-irrigation  data  for  updating  the  schedule 


Field  number 


number 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

72  .  . 

0 

0 

0 

0.5 

0.00 

0.00 

3 

0 

0.25 

0.0 

1.0 

1.5 

73  .  . 

0 

0 

0 

.5 

.01 

.01 

0 

0 

.00 

.0 

.0 

0 

74   .  . 

4 

0 

0 

.5 

.00 

.00 

0 

0 

3.30 

.5 

.5 

0 

75  .  . 

0 

0 

0 

.0 

.01 

.01 

0 

3 

.00 

.0 

.0 

0 

201   .  . 

0 

0 

0 

.5 

.00 

.00 

Q 

0 

.25 

.0 

1.0 

0 

202  .  . 

0 

0 

0 

.5 

.01 

.01 

0 

0 

.00 

.0 

.0 

0 

203   .  . 

4 

0 

0 

.5 

.00 

.00 

0 

0 

.00 

.5 

.5 

0 

204  .  . 

0 

0 

0 

.0 

.01 

.01 

0 

3 

.00 

.0 

.0 

0 
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Table  10. — Updated  depletions  and  irrigation  dates 
for  test  runs  before  cover,  beginning  May  1 1 


Optimum 


Field 

Depletion 

depletion 

Day  to 

Inches  to 

Acre- 

number 

inches 

inches 

irrigate 

apply 

inches 

Corn: 

i 

l .  . 

n  on 

U.ob 

QA 

y4 

o  o 

Z.Z 

7.7 

Z .  . 

1  CA 

1.04 

.OO 

00 

o  n 

i  n  o 
10. 2 

o .  . 

.y4 

.01 

ol 

l.o 

5.0 

4. 

.20 

.51 

82 

1.0 

2.5 

5.  . 

1.04 

.61 

63 

1.6 

16.1 

6.  . 

1.21 

.61 

14 

1.8 

37.1 

7.  . 

.39 

.71 

88 

1.9 

63.3 

8. 

.00 

.71 

90 

2.0 

73.3 

%  9.  . 

.20 

.81 

93 

2.9 

130.7 

10.  . 

.20 

.81 

93 

2.9 

145.1 

11.  . 

.20 

1.01 

99 

4.6 

6.9 

12.  . 

.50 

1.01 

97 

4.3 

388.2 

Beets: 

i 

i .  . 

on 

A  A 
.44 

BO 

i  n 
l.U 

O.O 

Z .  . 

.0/ 

A  A 

.44 

/U 

.y 

A  R 

4.0 

Q 

o .  . 

A  c 
.46 

OC 
.ZO 

7A 
/U 

.0 

o  o 
Z.o 

4 

.20 

.26 

75 

.4 

1.2 

4.  . 

.47 

.31 

72 

.7 

7.3 

6.  . 

.61 

.31 

56 

.9 

18.9 

7.  .  . 

.39 

.36 

75 

.6 

20.9 

8.  . 

.00 

.36 

80 

.9 

32.3 

9.  . 

.20 

.41 

81 

1.2 

55.3 

10.  . 

.20 

.41 

81 

1.2 

61.4 

11.  . 

.20 

.51 

88 

2.3 

3.5 

12.  . 

.39 

.51 

87 

2.2 

203.3 

Beans: 

i 

on 

~7A 
.  /4 

P.  P. 

1.0 

o.o 

Z  .  . 

1  "ZA 
1  .04 

~1  A 
./4 

0/ 

1  -t 
L.I 

a  o 
o.y 

o 

O  .  . 

.00 

A  Q 
.40 

ou 

1  1 
1.1 

r  n 

4. 

.20 

.43 

78 

.7 

1.8 

5.  . 

.94 

.52 

63 

1.4 

14.4 

6.  . 

1.01 

.52 

52 

1.5 

31.1 

7.  . 

.39 

.61 

83 

1.4 

44.8 

8.  . 

.00 

.61 

85 

1.4 

51.1 

9.  . 

.20 

.69 

87 

1.9 

89.1 

10.  . 

.20 

.69 

87 

1.9 

98.9 

11.  . 

.20 

.86 

91 

2.9 

4.3 

12.  . 

.39 

.86 

91 

2.9 

264.6 

Aitaita: 

1 .  . 

.zz 

5.10 

1  f\A 

1U4 

c  o 
D.8 

OO  o 
«£0.0 

2.  . 

2.86 

5.10 

no 

9Z 

6.8 

34.0 

3 .  . 

1.47 

3.00 

88 

4.4 

IOC 

18.5 

4.  . 

.22 

3.00 

94 

4.3 

10.7 

5.  . 

1.65 

3.60 

90 

5.5 

55.4 

6.  . 

1.34 

3.60 

92 

5.5 

111.9 

7.  . 

.47 

4.20 

100 

7.2 

231.8 

8.  . 

.00 

4.20 

101 

7.1 

251.1 

9.  . 

.22 

4.80 

103 

8.8 

398.3 

10.  . 

.22 

4.80 

103 

8.8 

442.1 

11 .  . 

.22 

5.94 

108 

12.2 

18.3 

12.  . 

1.49 

5.94 

103 

11.8 

1066.2 

After  updating,  the  tape  is  rewound  and  the 
program  recorded,  which  also  records  the  new 
data  on  the  Model  700.  On  the  Model  600,  the 


Table  11. — Updated  depletions  and  irrigation  dates 
for  test  runs  after  cover,  beginning  September  1 7 


Optimum 


Field 

Depletion 

depletion 

Day  to 

Inches  to 

Acre- 

number 

inches 

inches 

irrigate 

apply 

inches 

Corn: 

1 .  .  . 

0.22 

o.40 

-1(247) 

2.0 

6.8 

o 

i .  .  . 

O  OO 

o.4U 

OIK 

4.5 

22.7 

o  .  .  . 

1.54 

o  c\r\ 

214 

2.8 

11.9 

*r  .  .  . 

o  on 

 1  (OA~7\ 

~i.\.£f*l) 

9  1 
Z.  1 

O.O 

5.  .  . 

1.72 

2.40 

222 

3.7 

37.1 

6.  .  . 

1.50 

2.40 

233 

3.6 

73.9 

7.  .  . 

2.84 

2.80 

204 

4.7 

150.9 

8.  .  . 

.00 

2.80 

-1(247) 

2.2 

79.6 

9.  .  . 

3.42 

3.20 

202 

6.1 

277.9 

10.  .  . 

.27 

3.20 

-1(247) 

2.8 

141.1 

11 .  .  . 

.28 

3.96 

-1(247) 

3.1 

4.7 

12.  .  . 

2.87 

3.96 

245 

7.7 

700.6 

Beets: 

1 .  .  . 

0.22 

2.97 

-1(247) 

.4 

1.4 

o 

i .  .  . 

0.0/ 

204 

4.0 

20.4 

o .  .  . 

1  CO 

x./o 

one 
205 

2.0 

10.6 

4 

A 

i.i 

5.  .  . 

1.88 

2.10 

207 

3.2 

32.5 

6.  .  . 

1.57 

2.10 

212 

3.2 

65.0 

7.  .  . 

2.92 

2.45 

201 

4.8 

155.1 

8.  .  . 

.00 

2.45 

-1(247) 

.2 

9.0 

9.  .  . 

3.49 

2.80 

199 

6.3 

283.7 

10.  .  . 

.41 

2.80 

-1/247) 

.9 

46.2 

11 .  .  . 

.36 

3.46 

-1(247) 

.9 

1.3 

12.  .  . 

3.02 

3.46 

211 

6.8 

619.2 

Beans: 

1 .  . 

0.21 

2.55 

-1(247) 

1.2 

4.2 

2 .  . 

2.83 

2.55 

200 

3.7 

18.8 

o 

o .  . 

1.45 

1  Eft 

1.50 

206 

2.1 

9.2 

A 

*f  .  . 

0 1 

1  R.n 
1  .ou 

1  tOA  ~?\ 
—  1(Z4/) 

i  -i 

l.O 

o.o 

5.  . 

1.63 

1.80 

208 

2.7 

27.6 

6.  . 

1.46 

1.80 

215 

2.7 

55.7 

7.  . 

2.78 

2.10 

193 

4.6 

147.7 

8.  . 

.00 

2.10 

-1(247) 

1.3 

47.5 

9.  . 

3.36 

2.40 

189 

6.0 

272.7 

10.  . 

.21 

2.40 

—  1(247) 

1.6 

84.9 

11 .  . 

.23 

2.97 

—  1(247) 

1.9 

2.9 

12.  . 

2.78 

2.97 

209 

5.8 

525.3 

Alfalfa: 

1 .  . 

.30 

5.10 

244 

6.8 

23.2 

2.  . 

3.52 

5.10 

215 

6.8 

34.2 

3.  . 

2.13 

3.00 

210 

4.3 

18.2 

4.  . 

.27 

3.00 

223 

4.3 

10.8 

5.  . 

2.32 

3.60 

213 

5.6 

56.3 

6. 

1.83 

3.60 

216 

5.5 

111.0 

7.  . 

3.21 

4.20 

211 

7.0 

226.5 

8.  . 

.00 

4.20 

237 

7.0 

246.6 

9.  . 

3.75 

4.80 

211 

8.6 

390.5 

10.  . 

.78 

4.80 

235 

8.6 

433.4 

11.  . 

.63 

5.94 

-1(247) 

11.2 

16.8 

12.  . 

3.48 

5.94 

222 

11.8 

1062.3 

new  data  are  recorded  by  keying  Search  0.  The 
next  tape  is  then  inserted  for  a  different  crop  or 
group  of  fields  and  the  updating  process  repeated. 
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An  example  of  the  schedule  output  for  the  600 
is  shown  in  table  7,  and  for  the  700  in  table  8.  The 
irrigation  calendar  date  must  be  written  in  after 
the  day  number.  A  standard  form  is  constructed 
on  which  the  Model  600  calculator  printouts  are 
pasted.  A  field  name  or  number  may  be  written  in 
to  further  identify  the  scheduled  areas.  Photo- 
copies of  the  completed  schedule  are  made  for 
distribution  to  the  irrigators  and  farm  manager. 

Table  9  lists  sample  rainfall  and  irrigation  data 
for  four  days  of  update  before  and  after  effective 
cover.  These  data  were  used  along  with  the  field 


data  from  table  4  and  the  climatic  data  from  table 
5  to  test  all  of  the  programs  on  the  600  and  700 
model  calculators.  The  results  of  updating  these 
data  are  given  in  tables  10  and  11.  The  data  were 
constructed  to  test  the  programs  under  all  condi- 
tions that  might  be  encountered.  The  600  and  700 
programs  gave  identical  results.  The  results  of 
tables  10  and  11  were  calculated  with  potential  ET 
values  truncated  at  3  significant  figures  and  stored 
manually.  Slight  deviations  may  occur  in  the  re- 
sults if  the  ET  values  are  calculated  and  stored  di- 
rectly by  the  Penman  program. 


DISCUSSION 


The  programs  and  logic  are  documented  for  two 
different  Wang  programmable  calculators.  These 
programs,  however,  could  be  adapted  to  many 
other  programmable  calculators  currently  avail- 
able. Modifications  can  be  made  to  suit  particular 
types  of  crops  or  irrigation  systems.  Instructions 
for  changing  the  crop  curve  constants  and  rooting 
depths  are  given  in  the  Appendices. 

The  Penman  equation  as  given  has  been  cali- 
brated for  such  a  semiarid  region  as  western  Ne- 
braska. Slight  changes  in  some  constants  may  be 
needed  in  more  humid  regions.  Potential  evapo- 
transpiration  may  be  estimated  by  other  means  if 
the  required  data  are  not  available  for  use  of  the 


Penman  method.  For  ease  in  operation,  it  is  recom- 
mended that  the  calculator  selected  have  the  ca- 
pability of  reading  and  writing  data  on  either  a 
magnetic  cassette  or  card. 

Experience  at  Mitchell,  Nebr.,  has  shown  that 
four  crops  divided  into  a  total  of  37  fields  could  be 
updated  in  2  hours.  This  included  tabulation  of 
the  weather  and  irrigation  data  for  entry  into  the 
calculator.  The  same  number  of  entries  must  be 
made  on  either  large  computers  or  the  program- 
mable calculator.  However,  when  the  schedule  is 
made  locally,  the  schedule  is  immediately  available 
to  the  irrigator,  and  it  is  not  delayed  in  the  mail. 
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APPENDIX 

A.  Penman  Potential  Evapotranspiration  Programs 
1.  Wang  Model  600,  Verify  Number  3136 


Step 

Code 

Key 

Comments 

nnnn 
u  u  u  u 

0  9 

0  0 

(VI 

i  o  start,  Key  average  temperature  Tor  ora 

U  U  U  1 

0  0 

0  0 

E  0 

I—  VJ 

previous  day,  T_3  ,  Search  0. 

n  n  n  o 

0  6 

0  1 

ST  1 

01  1 

n  n  n  t 
UUUy 

0  9 

0  3 

* 

s? 

r\ey  average  temperature  Tor  ^na  previous  aay, 

n  n  n  a 

0  6 

0  2 
vj  &. 

ST  2 
oi  .c 

i  _2 ,  Key  uu. 

n  n  n  r 

U  U  U  P 

0  9 

0  3 

SP 
or 

Key  /  _j ,  key  bU. 

n  n  n  a. 
U  U  U  o 

0  6 

0  3 

VJ  X 

01  ^ 

n  n  n  n 
U  U  U  / 

0  0 

0  5 

F  5 

n  n  n  q 
U  u  u  o 

0  0 

0  2 

E  2 

n  n  n  o 
uuuy 

0  6 

0  0 

ST  0 

01  VJ 

otore  iirst  ttP  register  numDer  in  y. 

UU  1  u 

0  9 

0  3 

SP 
or 

r\ey  Tirst  day  ot  update,  Key  bu. 

U  U  I  I 

0  6 

0  4 

ST  4 

UU  u 

0  9 

0  0 

# 

M 

uu  u 

0  0 

0  1 

E  1 

U  U  1  4 

0  7 

0  4 

RE  4 

fin  i  c 
UU  1  ? 

1  5 

1  1 

1  1 

UU  1  0 

0  6 

0  0 

M  0 

otore  date  in  ttp  register. 

UU  1  / 

o  a 

0  2 

* 

w 

If 

rnnt  date. 

UU  1  o 

0  6 

VJ  w 

0  0 

ST  0 

1  VJ 

UU  1  y 

0  9 

0  3 

r\6y  /  max ,  iriaxiiMurn  lernperaTurG. 

n  n  o  n 

0  6 

0  5 

ST  5 

nno  1 

U  U  <£  I 

0  8 

V  VJ 

0  2 

w 

Print  /  max . 

n  n  o  o 
U  U  2  I 

0  3 

0  0 

vj 

n  n  o  t 
U  U  2 

0  9 

0  3 

SP 

Key  minimum  temperature. 

n  n  o  /. 
U  U  2  4 

0  6 

0  6 

ST  6 

n  c»  o  k 
U  U  2  P 

0  8 

VJ 

0  2 

w 

f  I 

Print  Tmin. 

n  n  o  £. 

1  1 
1  1 

0  0 

VJ 

F  0 

1  VJ 

n  n  o  n 
U  U  2  7 

VJ  7 

0  3 
vj  > 

SP 

Key  dewpoint  temperature. 

o  o  o  o 

U  0  2  8 

0  6 

0  7 

Sf  7 

n  n  o  o 

u  u  2  y 

0  8 

0  2 

# 

w 

Print  Tdp . 

n  n  "z  n 
UU5U 

1  4 

0  0 

C  0 

VV  VJ 

n  c\  ~z  1 
U  U  ?  1 

VJ  7 

0  3 

SP 

Key  solar  radiation. 

0  0  5  2 

VJ  u 

0  8 

Sl  8 

r»  r>  "z  t 

0  0  3  3 

08 

02 

* 

w 

Print  Rs. 

0034 

0  1 

00 

TO 

0035 

09 

03 

* 

SP 

Key  wind,  total  miles. 

0036 

06 

09 

ST  9 

0037 

08 

02 

* 

w 

Print  W. 

0038 

1  1 

00 

F0 

0039 

oa 

02 

# 

w 

Print  space. 
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Step 

Code 

Key 

Comments 

0040 

00 

1  5 

E15 

004  1 

08 

02 

*  w 

Print  space. 

0042 

00 

1  5 

E15 

0043 

0  7 

0  5 

Kt5 

0044 

0  6 

1  4 

ST  14 

0045 

0  7 

0  6 

RE6 

0046 

02 

1  4 

+  14 

Calculate  average  temperature. 

004  7 

00 

02 

E2 

0048 

0  5 

1  4 

♦  14 

00  49 

08 

02 

*  W 

Print  f. 

005  0 

05 

0  1 

T  1 

005  1 

0  7 

0  1 

RE  1 

Calculate  soil  heat  flux,  G. 

0052 

06 

1  5 

Si  15 

005  3 

07 

02 

RE2 

0054 

02 

1  5 

♦  15 

0055 

07 

03 

Kt3 

00  56 

02 

1  5 

+  15 

0057 

00 

1  2 

E12 

0058 

00 

03 

E3 

0059 

0  5 

1  5 

rl5 

0060 

07 

1  4 

REM 

006  1 

02 

1  5 

+  15 

0062 

0  0 

05 

E5 

r  -i 

0063 

04 

1  5 

*15 

6  =  5T-(T_3+T_2+T_1)/3 

0064 

09 

0  1 

*  ST 

0065 

0  1 

00 

TO 

0066 

07 

02 

Kfc2 

0067 

06 

0  1 

ST  1 

T-3=f_2 

0068 

07 

03 

Kt3 

0069 

06 

02 

ST  2 

0070 

07 

1  4 

K£14 

007  1 

06 

0  3 

SI  3 

f-t  =  f 

0072 

07 

07 

KE7 

0073 

1  0 

00 

f  0 

Call  vapor  pressure  subroutine,  dewpoint. 

0074 

0  6 

07 

ST  7 

ed 

0075 

07 

05 

K£5 

0076 

06 

1  4 

ST  14 

Calculate  clear  day  net  radiation,  Rb0. 

0077 

00 

1  0 

E10 

0078 

00 

00 

EO 

0079 

00 

00 

EO 

0080 

00 

08 

E8 

008  1 

00 

06 

E6 

0082 

00 

04 

E4 

12 


Step 

Code 

Key 

0083 

04 

1  4 

xU 

0084 

00 

03 

E3 

0085 

00 

1  0 

£10 

0086 

00 

09 

£9 

0087 

00 

07 

E7 

0088 

02 

1  4 

+  14 

0089 

08 

1  2 

*  X2 

0  0  9  0 

o  a 

1  2 

*  X2 

009  1 

06 

1  4 

SUA 

0092 

07 

06 

Kfc6 

0093 

06 

1  5 

ST  15 

0094 

00 

1  0 

E10 

0095 

00 

00 

EO 

0096 

00 

00 

EO 

0097 

00 

08 

E8 

0098 

00 

06 

E6 

0099 

00 

04 

E4 

0  100 

04 

1  5 

xi5 

0  10  1 

00 

03 

E3 

0  102 

00 

1  0 

E10 

0  103 

00 

09 

E9 

0  104 

00 

07 

E7 

0  105 

02 

1  5 

+  15 

0  106 

08 

1  2 

♦  xa 

0  107 

08 

1  2 

*  X2 

0  108 

02 

1  4 

+  14 

0  109 

07 

07 

Rt  7 

0  110 

08 

1  3 

*  6 

0  111 

06 

1  5 

ST  15 

0  112 

00 

1  0 

E10 

0  113 

00 

00 

EO 

0  114 

00 

04 

E4 

0  115 

00 

04 

E4 

0  116 

00 

1  2 

E12 

0  117 

04 

1  5 

xl5 

0  118 

00 

1  0 

E10 

0  119 

00 

03 

E3 

0  120 

00 

07 

E7 

0  12  1 

02 

1  5 

+  15 

0  122 

07 

1  4 

HE  14 

0  123 

04 

1  5 

xl5 

0  124 

07 

04 

Rt4 

0  125 

06 

1  4 

ST  14 

Comments 


Calculate  clear  sky  solar  radiation,  R 
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Step 

Code 

Key 

0 

1  2  6 

00 

0  1 

E  1 

0 

1  27 

00 

00 

E0 

0 

1  28 

00 

07 

E7 

0 

129 

03 

1  4 

-14 

0 

1  30 

00 

0  1 

E  1 

0 

1  3  1 

00 

0  5 

E5 

0 

1  32 

00 

0  7 

E7 

0 

1  33 

05 

1  4 

f  14 

0 

1  34 

08 

1  2 

*  xa 

0 

1  35 

08 

1  1 

*  e* 

0 

136 

06 

1  4 

SI  14 

0 

1  37 

00 

0  7 

E7 

0 

1  38 

00 

06 

E6 

0 

1  39 

0  0 

0  0 

EO 

0 

1  40 

05 

1  4 

rl4 

0 

1  4  1 

07 

08 

RE8 

0 

142 

04 

1  4 

xl4 

0 

143 

0  0 

1  0 

E10 

0 

1  44 

00 

09 

E9 

0 

1  45 

04 

1  4 

xi4 

0 

1  46 

00 

1  0 

E10 

0 

1  47 

00 

0  1 

E  1 

0 

1  48 

02 

1  4 

+  14 

0 

1  49 

04 

1  5 

xl5 

0 

1  50 

00 

1  0 

E10 

0 

1  5  1 

0  0 

07 

E7 

0 

152 

00 

0  7 

E7 

0 

153 

04 

08 

x8 

0 

1  54 

07 

1  5 

R£15 

0 

155 

03 

08 

-a 

0 

156 

07 

05 

RE5 

0 

1  57 

1  0 

00 

f  0 

0 

1  58 

06 

05 

SI  5 

0 

1  59 

0  7 

06 

Kk6 

0 

1  60 

1  0 

00 

f  0 

0 

1  6  1 

02 

05 

+  5 

0 

162 

00 

02 

E2 

0 

163 

05 

05 

t5 

0 

1  64 

08 

02 

*  W 

0 

1  65 

03 

03 

-3 

0 

1  66 

07 

07 

K£7 

0 

1  67 

08 

02 

*  W 

0 

1  68 

1  4 

03 

C3 

Comments 


Calculate  net  radiation,  Rn 


Vapor  pressure  at  maximum  temperature. 


Average  vapor  pressure. 
Print  ec . 


Print  dewpoint  vapor  pressure. 
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Step 

Code 

Key 

0  169 

0  3 

0  5 

-5 

0  170 

0  7 

0  3 

Kt3 

0  17  1 

0  6 

1  4 

ST  14 

0  172 

0  0 

0  4 

E4 

0  173 

0  0 

0  5 

E5 

0  174 

0  0 

0  3 

E3 

0  175 

0  0 

0  4 

E4 

0  176 

0  9 

0  2 

* 

0  177 

1  1 

0  8 

F8 

0  178 

0  4 

1  4 

xl4 

0  179 

0  0 

1  0 

E10 

0  160 

0  0 

0  0 

EO 

0  16  1 

0  0 

0  1 

E  1 

0  182 

0  0 

0  2 

E2 

0  183 

0  0 

0  5 

E5 

0  184 

0  3 

1  4 

-14 

0  185 

0  7 

0  3 

Rk3 

0  166 

0  4 

1  4 

xl4 

0  187 

0  0 

1  0 

E10 

0  188 

0  0 

0  9 

E9 

0  189 

0  0 

0  5 

E5 

0  190 

0  0 

0  9 

E9 

0  19  1 

0  2 

1  4 

+  14 

0  192 

0  0 

0  1 

E  1 

0  193 

0  6 

0  6 

ST  6 

0  194 

0  7 

1  4 

Hhl4 

0  195 

0  3 

0  6 

-6 

0  196 

0  7 

0  9 

Kt9 

0  197 

0  6 

1  5 

ST  15 

0  198 

0  0 

1  0 

EiO 

0  199 

0  0 

0  0 

EO 

0200 

0  0 

0  1 

E  1 

020  1 

0  0 

0  7 

E7 

0202 

0  4 

1  5 

xl5 

0203 

0  0 

0  1 

E  1 

0204 

0  0 

1  0 

EIO 

0205 

0  0 

0  1 

E  1 

0206 

0  2 

1  5 

+  15 

0207 

0  4 

1  4 

*14 

0208 

00 

0  1 

E  1 

0209 

00 

05 

E5 

02  10 

00 

1  0 

EiO 

02  11 

00 

03 

E3 

Comments 

Calculate  weighting  factor  C2  =f(T). 


Calculate  weighting  factor  C  j  =  1 —  C2 . 


Calculate  potential  E 
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Step 

Code 

Key 

02  12 

00 

06 

£6 

02  13 

04 

1  4 

xl4 

02  14 

07 

05 

Kt5 

02  15 

04 

1  4 

*14 

02  16 

08 

0  1 

*  RE 

02  17 

0  1 

00 

TO 

02  18 

08 

02 

*  W 

02  19 

05 

02 

r2 

0  2  2  0 

00 

1  2 

£12 

022  1 

06 

1  5 

Si \b 

02  2  2 

07 

08 

KL8 

0  2  2  3 

08 

02 

*  W 

0  2  24 

0  7 

00 

KtO 

0225 

02 

1  5 

+  15 

022  6 

07 

06 

Kt6 

0227 

04 

1  5 

*15 

0228 

02 

1  4 

+  14 

0229 

00 

06 

£6 

0230 

00 

07 

E7 

02  3  1 

00 

03 

£3 

0232 

09 

02 

* 

0233 

1  1 

06 

F6 

02  34 

04 

1  4 

xl4 

0235 

06 

02 

*  W 

0236 

06 

03 

SI  3 

023  7 

07 

04 

RE4 

0238 

02 

1  4 

+  14 

0239 

1  5 

1  1 

Dll 

0240 

06 

00 

Sf  0 

02  4  1 

00 

0  1 

E  1 

0242 

02 

00 

+  0 

024  3 

00 

0  1 

E  1 

0244 

02 

04 

+  4 

02  4  5 

08 

02 

*  W 

0246 

00 

1  5 

E15 

024  7 

08 

02 

*  W 

0248 

00 

1  5 

E15 

0249 

07 

00 

Hi  0 

0250 

06 

1  4 

ST  14 

025  1 

00 

05 

E5 

0252 

00 

06 

E  6 

0253 

03 

1  4 

-14 

0254 

06 

04 

*  Jo 

Comments 


Print  G. 


Print  R, 


Print  Etp. 


Store  date  +  Etp . 


Increment  register  number. 


Increment  date. 


Print  2  spaces. 
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Step 

Code 

Key 

0255 

08 

0  0 

*  S 

0256 

00 

0  1 

E  1 

0257 

09 

0  3 

* 

0258 

0  9 

0  0 

* 

0259 

1  0 

00 

f  0 

0260 

06 

1  5 

SU5 

026  1 

0  6 

1  4 

51  14 

0262 

0  0 

08 

E8 

0263 

0  0 

0  9 

E9 

0264 

09 

02 

* 

0265 

1  1 

06 

F6 

0266 

04 

1  5 

xl5 

0267 

00 

1  0 

E10 

02  68 

00 

0  0 

EO 

0269 

0  0 

0  0 

EU 

0270 

00 

05 

E5 

02  7  1 

0  0 

0  1 

E  1 

0272 

00 

09 

E9 

0273 

00 

0  5 

E5 

0274 

03 

1  5 

-15 

0^75 

07 

1  4 

Rtl4 

0276 

0  4 

1  5 

*15 

0277 

00 

1  0 

EiO 

0278 

00 

02 

E2 

0279 

0  0 

09 

E9 

0260 

0  0 

0  4 

E4 

028  1 

00 

06 

E6 

0282 

02 

1  5 

+  15 

0283 

04 

1  4 

xl4 

0284 

0  0 

1  0 

EiO 

0285 

00 

06 

E6 

0286 

00 

09 

E9 

0287 

00 

0  5 

E5 

0288 

00 

09 

E9 

0289 

03 

1  4 

-14 

0290 

09 

1  5 

* 

0  2  9  1 

0  y 

1  4 

* 

Comments 

If  register  number  <  55,  GO  TO  Step  12. 


Vapor  pressure  subroutine. 
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2.  Wang  Model  700,  Verify  Number  5671 


Step 

Code 

Key 

oon 

04 

12 

Write  alpha 

001 

12 

00 

Printer  on 

002 

01 

08 

CR/LF 

003 

04 

13 

End  alpha 

004 

04 

11 

Write 

005 

15 

10 

10  spaces 

006 

04 

12 

Write  alpha 

007 

01 

03 

Shift  up 

008 

02 

09 

L 

009 

01 

09 

0 

010 

02 

12 

C 

Oil 

01 

12 

A 

012 

02 

07 

T 

013 

01 

04 

1 

014 

01 

09 

0 

015 

02 

06 

N 

016 

04 

13 

End  alpha 

017 

04 

11 

Write 

018 

15 

15 

15  spaces 

01P 

04 

12 

Write  alpha 

020 

01 

03 

Shift  up 

021 

02 

00 

B 

022 

02 

05 

E 

023 

00 

15 

G 

024 

01 

04 

1 

025 

02 

06 

N 

026 

02 

06 

N 

027 

01 

04 

1 

028 

02 

06 

N 

029 

00 

15 

G 

030 

00 

02 

space 

031 

02 

13 

D 

032 

01 

12 

A 

033 

02 

07 

T 

034 

02 

05 

E 

035 

00 

02 

space 

036 

12 

01 

Printer  off 

037 

04 

13 

End  alpha 

038 

05 

15 

Stop 

039 

04 

12 

Write  alpha 

040 

12 

00 

Printer  on 

041 

01 

08 

CR/LF 

042 

01 

10 

Index  (LF) 

043 

01 

03 

Shift  up 

044 

00 

02 

space 

045 

02 

13 

D 

046 

01 

12 

A 

047 

00 

0] 

Y 

048 

00 

02 

space 

049 

00 

02 

050 

00 

02 

Comments 
To  start,  key  PRIME,  GO. 
Print  heading  for  ET  calculations. 


With  printer  in  manual  operation,  type  the  beginning  date  or 
first  day  of  update.  Return  printer  to  automatic  control. 
Key  GO. 
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Step 

Code 

Key 

ATI 

051 

AA  AO 

00  01 

05z 

AA  AO 

00  OZ 

ACT 

Oil  "Z 

0j4 

no  A7 

( JZ  "  / 

T 
1 

Odd 

A1     1  0 

Ol  1Z 

A 

ODD 

A1     1  /. 

Ol  it 

V 

a  c  "7 

05  / 

AA    1  C 

OO  ID 

r> 

ACQ 

05  o 

AA  AO 

0O  OA 

space 

059 

AA  AO 

00  0L 

06(1 

AA  AO 

00  0Z 

061 

AA  AO 

00  oz 

06  Z 

A  A  AO 

OO  Oz 

A£  O 

063 

A  A  AO 

00  oz 

064 

A1     1  0 

01  13 

R 

06  j 

A1  A1 

01  01 

c 
o 

a./:  r 
066 

AA  AO 

00  0Z 

space 

06  / 

AA  AO 

OO  Oz 

O6o 

AA  AO 

00  oz 

06W 

A  A  AO 

00  OZ 

070 

AA  AO 

OO  Oz 

aoi 

0/1 

AA  AO 

00  OZ 

U/Z 

no  i  L 

VIZ  l4* 

1 1 

U 

AT] 

0  /  J 

A1     1  O 

01  1Z 

A 

0  /4 

AA  AO 

OO  oz 

space 

0  /_> 

nn  no 

00  OZ 

0/6 

AA  AO 

00  oz 

AT7 

Oil 

AA  AO 

00  OZ 

aoq 

0  In 

AA  AO 

oo  uz 

079 

AA     A  O 

00  oz 

AAA 

OoO 

AA  AO 

00  oz 

AOI 

Ool 

A  A  AO 

00  oz 

AQO 

OoZ 

A1     1  /. 

Ol  14 

\/ 

V 

nn  n^ 

in)  iij 

p 

r 

aq  I. 
0o4 

fit  A1 

01  01 

c 
o 

OoD 

AA  AO 

oo  OZ 

space 

aq  c 
0o6 

A  A  AO 

00  OZ 

Oo  / 

A  A  AO 

OO  OZ 

AQQ 

Ooo 

AA  AO 

oo  oz 

AAA 

089 

AA  AO 

00  oz 

090 

A  A     A  O 

00  02 

091 

A  A  AO 

00  Oz 

AO  o 

09  Z 

A1      1  /■ 

01  14 

\/ 

V 

ao  o. 

OV  j 

nn  n^ 

p 

r 

A.  A  /. 

094 

AO    1  O 

OZ  13 

u 

09  J 

AA  AO 

OO  OZ 

space 

aa 

096 

AA  AO 

00  oz 

AA  ~7 

097 

AA  AO 

00  oz 

09o 

AA  AO 

00  oz 

aa  a 

09H 

AA     A  O 

OO  oz 

1  AA 

100 

AA  AO 

oo  oz 

i  m 

JLv'JL 

ni  i  ^ 

111    J.  J 

R 

102 

02  06 

N 

103 

00  02 

space 

Comments 


Average  temperature. 


Solar  radiation  in  Langleys. 


Total  wind  in  miles. 


Mean  vapor  pressure. 


Vapor  pressure  at  dewpoint. 


Total  net  radiation. 
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Step 

Code 

Key 

Comments 

104 

00 

02 

105 

00 

02 

106 

00 

02 

107 

00 

02 

108 

00 

02 

109 

00 

02 

110 

00 

15 

G 

Soil  heat  flux. 

111 

00 

02 

space 

112 

00 

02 

113 

00 

02 

114 

00 

02 

115 

00 

02 

116 

00 

02 

117 

00 

02 

118 

00 

02 

119 

00 

02 

120 

02 

05 

E 

121 

01 

09 

0 

Calculated  potential  ET. 

122 

01 

08 

CR/LF 

123 

01 

10 

Index  (LF) 

124 

01 

02 

Shift  down 

125 

04 

13 

End  alpha 

126 

05 

15 

Stop 

Key  average  temperature  for  3rd  previous  day,  key  GO. 

127 

04 

04 

Store  Dir 

128 

00 

01 

1 

120 

05 

15 

Stop 

Key  average  temperature  for  2nd  previous  day,  key  GO. 

130 

04 

04 

Store  Dir 

131 

00 

02 

2 

132 

05 

15 

Stop 

Key  average  temperature  for  1st  previous  day,  key  GO. 

133 

04 

04 

Store  Dir 

134 

00 

03 

3 

135 

07 

01 

1 

136 

07 

02 

2 

137 

04 

04 

Store  Dir 

Store  1st  ET  register  number  in  0. 

138 

00 

00 

0 

139 

05 

15 

Stop 

Key  1st  day  of  update,  key  GO. 

140 

04 

04 

Store  Dir 

141 

00 

04 

4 

142 

04 

08 

Mark 

143 

07 

01 

1 

144 

04 

15 

Recall  Y 

145 

00 

00 

0 

146 

04 

05 

Recall  Dir 

147 

00 

04 

4 

148 

05 

04 

Store  Ind 

Store  date  in  ET  register. 

149 

04 

11 

Write 

150 

03 

00 

3  sp.  0  sp. 

Print  date.' 

151 

05 

15 

Stop 

152 

04 

04 

Store  Dir 

Key  maximum  temperature,  key  GO. 

153 

00 

05 

5 

154 

05 

15 

Stop 

Key  minimum  temperature,  key  GO. 

155 

04 

04 

Store  Dir 

156 

00 

06 

6 

20 


Step 

Code 

Key 

157 

05 

15 

^tnn 

O  \.\J  yj 

158 

04 

04 

159 

00 

07 

7 

05 

15 

Stop 

161 

04 

04 

Store  Dir 

162 

00 

08 

8 

16^ 

05 

15 

Stop 

1  64 

04 

04 

^tnrp  Dir 

165 

00 

09 

Q 

Z/ 

166 

x  v#  \j 

04 

15 

Rprall  Y 

167 

00 

05 

5 

168 

04 

05 

Recall  Dir 

169 

00 

06 

6 

170 

06 

00 

+ 

171 

07 

02 

2 

172 

06 

03 

173 

06 

05 

1 

4- 

174 

04 

11 

Write 

175 

07 

01 

7.1 

176 

04 

05 

Recall  Dir 

177 

00 

02 

2 

178 

04 

00 

+  Dir 

179 

00 

01 

1 

180 

04 

05 

Recall  Dir 

181 

00 

03 

3 

182 

04 

00 

+  Dir 

183 

00 

01 

1 

184 

07 

03 

3 

185 

04 

03 

186 

00 

01 

1 

187 

04 

05 

Recall  Dir 

188 

00 

01 

1 

189 

04 

14 

Store  Y 

190 

00 

01 

1 

X 

191 

X  V  X 

06 

01 

192 

X  J  *• 

07 

05 

R 
•J 

193 

06 

02 

x 

194 

04 

14 

Store  Y 

195 

02 

01 

21 

196 

04 

05 

Recall  Dir 

197 

00 

01 

1 

X 

198 

04 

06 

1 1  Dir 

199 

X  J  J 

00 

03 

3 

200 

04 

06 

T  1  Dir 

201 

00 

02 

2 

202 

04 

06 

T  1  Dir 

203 

00 

01 

1 

204 

04 

05 

Rprall  Dir 

205 

00 

07 

7 

206 

02 

00 

Call  Sub 

207 

04 

14 

Store  Y 

208 

00 

07 

7 

209 

04 

15 

Recall  Y 

Comments 
Key  dewpoint  temperature,  key  GO. 

Key  solar  radiation,  key  GO. 
Key  wind  in  miles,  key  GO. 


Calculate  average  temperature. 
Print  average  temp. 

Calculate  soil  heat  flux. 

G  =  5rT-(T_3  +T_2  )/3 


Store  G  in  21. 

T-3  =f-2 
f-2  =t_, 

Calculate  Vapor  pressure  at  dewpoint  temperature. 
Subroutine  starts  at  step  584. 
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Step 

Code 

Key 

210 

00 

05 

5 

211 

07 

12 

• 

212 

07 

00 

0 

213 

07 

00 

0 

214 

07 

08 

8 

215 

07 

06 

6 

216 

07 

04 

4 

217 

06 

02 

X 

218 

07 

03 

3 

219 

07 

12 

• 

220 

07 

09 

9 

221 

07 

07 

7 

222 

06 

00 

+ 

223 

06 

05 

i 

22A 

07 

13 

X2 

225 

07 

13 

X2 

226 

04 

04 

Store  Dir 

227 

02 

00 

20 

228 

04 

15 

Recall  Y 

229 

00 

06 

6 

230 

07 

12 

• 

231 

07 

00 

0 

232 

07 

00 

0 

233 

07 

08 

8 

234 

07 

06 

6 

235 

07 

04 

4 

236 

06 

02 

X 

237 

07 

03 

3 

238 

07 

12 

• 

239 

07 

09 

9 

240 

07 

07 

7 

241 

06 

00 

+ 

242 

06 

05 

1 

243 

07 

13 

X2 

244 

07 

13 

X2 

245 

04 

00 

+  Dir 

246 

02 

00 

20 

247 

04 

05 

Recall  Dir 

248 

00 

07 

7 

249 

06 

12 

VyT 

250 

06 

04 

T 

251 

07 

12 

• 

252 

07 

00 

0 

253 

07 

04 

4 

254 

07 

04 

4 

255 

07 

11 

Ch.  sign 

256 

06 

02 

X 

257 

07 

12 

• 

258 

07 

03 

3 

259 

07 

07 

7 

260 

06 

00 

+ 

261 

06 

05 

1 

262 

04 

02 

x  Dir 

Comments 

Calculate  clear  day  net  radiation,  Rbo 
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orep 

Code 

K  ail 

iOJ 

w  Z_ 

00 

on 

ZOH 

OA 

1  s 

X  J 

Par-oil  V 

rcecail  Y 

9£  K 

ZtO 

OA 

A 

H- 

9  fi£ 

07 

01 

1 
I 

9£  7 

07 

00 

U 

ICQ 

Zbo 

07 

07 

/ 

9£Q 

ZoW 

06 

WW 

01 

»  '  X 

Z  /il 

07 

01 

W  JL 

1 

0  "71 

Z  /I 

07 

OS 

c 

□ 

z  /z 

07 

07 

/ 

Z  /  J 

06 

WW 

0? 

9  7/. 

Z  /4 

06 

OS 

1 

4- 

97S 

07 

13 

X2 

97A 

06 

\  4 

JL  *T 

977 

£.11 

06 

04 

T 

97ft 

£.  1  n 

07 

07 

7 
/ 

97Q 

£.  1" 

07 

06 

O 

?fto 

07 

00 

9ft1 
ZoX 

06 

03 

w  J 

9ft9 

OA 

OS 

rcecan  uir 

9RT 

00 

08 

Q 

o 

9RA 

04 

11 

JL  X 

in/,,  ;t0 

write 

9ft1; 

itO  J 

08 

00 

o.U 

9RA 
zoo 

06 

02 

X 

9ft7 

£.o  / 

07 

W  / 

12 

• 

9ftft 

Zoo 

07 

W  / 

0Q 

y 

9ftQ 

06 

WW 

0? 

w  £~ 

X 

zy  w 

07 

W  / 

1  ? 

• 

9Q1 

zy  i 

07 

W  / 

01 

1 

909 

zy  z 

06 

WW 

00 

i 

9Q  1 

04 

05 

9QA 

02 

00 

90 
ZU 

9o s 

06 

WW 

02 

W  £m 

A 

9QA 

Zy  O 

07 

12 

X  Z- 

90  7 

zy  / 

07 

w  / 

07 

/ 

9Qft 

Zy  o 

07 

07 

/ 

9QQ 

04 

0? 

x  Dir 

JUI 1 

00 

Oft 

o 
O 

im 

06 

OS 

1 

4- 

JUZ 

04 

01 

*  /X 

  nir 

00 

08 

wu 

o 
o 

04 

05 

rvcCdll  Uli 

ms 

00 

05 

C 

02 

00 

Pall  ^nh 

107 

04 

14 

Qtnro  V 

juo 

00 

05 

K 

lOQ 

JUT 

04 

05 

Rom  II  Hir 

n  o 

jj.1 1 

00 

06 

C 
O 

n  i 

02 

00 

Poll  Qnh 
U3II  oUD. 

n  9 

06 

i  Jw 

OS 

1 

n  i 
Jl  J 

04 

00 

+  Uir 

314 

00 

05 

5 

315 

07 

02 

2 

Comments 

Calculate  clear  sky  solar  radiation,  R. 


Calculate  net  radiation,  Rn  . 
Print  solar  radiation. 


Vapor  pressure  at  maximum  temperature. 


Vapor  pressure  at  minimum  temperature. 
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step 

Code 

ftey 

91  6 

Jin 

03 

—  Dir 

11  7 

J±  / 

on 

05 

o 

11  Q 

OA 

05 

pa<-  --,11   Hi  r 
KtJCdll  Uir 

11  Q 

00 

09 

Q 

17 

190 

jzu 

OA 

11 

vv  rue 

06 

01 

6  1 
D.  1 

19  9 

OA 

OS 

rcecan  uir 

19  1 

00 

0*5 

D 

19  /■ 
JZ4 

OA 

1 1 

Write 

99 

07 

01 

7  1 

996 

OA 

os 

Derail  nic 
r\cLdll  uir 

197 

00 

07 

7 

HQ 

OA 

1 1 

vvrite 

99Q 

06 

01 

p.  i 

110 

OA 

01 

Hi  r 

—  uir 

191 

00 

05 

3 

119 

OA 

15 

necaii  y 

111 

00 

03 

o 

91A 

07 

OA 

4 

11  ^ 

07 

05 

c 
D 

196 

Jjn 

07 

03 

Q 
O 

117 

j  J  / 

07 

OA 

4 

HQ 

J  JO 

OA 

12 

vv  r i ie  d  i  pn 

11Q 

OA 

08 

iao 

06 

02 

V 
A 

1/i  1 

07 

1 2 

X  *m 

1A9 

07 

00 

u 

1A 1 

jl  j 

07 

01 

l 

1AA 

07 

02 

Z 

1A 

07 

05 

»  9  J 

c 
O 

1A6 

06 

01 

1A7 

OA 

05 

r\eudll  uir 

1/i  Q 

00 

0? 

o 
o 

1AQ 

06 

02 

«  )  C- 

iso 

07 

12 

i^i 

jji 

07 

09 

Q 

1^9 

07 

05 

c 

J 

9S1 

jj  J 

07 

09 

Q 

ISA 

06 

00 

l 

T 

1^  ^ 

jjj 

07 

01 

1 
1 

9S6 

J  JD 

OA 

OA 

oiore  Ulr 

1S7 

j  j  / 

00 

06 

c 
D 

J  Jo 

06 

05 

i 

1 

1SQ 

OA 

01 

\/x 

—  uir 

160 

00 

06 

c 

o 

161 

jnl 

07 

*  9  1 

1  2 

X  £- 

• 

169 

07 

00 

U 

96  1 

JO  J 

07 

01 

*  'X 

i 
1 

16  A 
Jot 

07 

07 

"7 
/ 

16  "\ 

JUJ 

OA 

x  Dir 

166 

jOO 

00 

09 

y 

367 

07 

01 

1 

368 

07 

12 

• 

Comments 
Average  vapor  pressure. 

Print  wind. 


Print  average  vapor  pressure. 


Print  dewpoint  vapor  pressure. 
Calculate  weighting  factor  C2 . 


Calculate  weighting  factor  C1  —  1  — C2  . 


Calculate  potential  E 
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Step 

Code 

Key 

36  9 

0/ 

oi 

ill 

1 

370 

W4* 

oo 

Wl » 

+  Dir 

371 

Wl I 

oo 

1 1" 

9 

O  T  O 

372 

oa 

WD 

Recall  Dir 

373 

oo 

oo 

wv 

9 

374 

oa 

WO 

07 

wz 

X 

375 

07 

OI 

Ul 

1 

1 

376 

07 

o^ 

W  J 

r- 

5 

377 

07 

1  7 

• 

378 

'i  / 

OI 

WJ 

o 
o 

379 

i  J  / 

OA 
WO 

c 
O 

380 

oa 

wo 

07 

X 

381 

oa 

W4 

o^ 

Wj 

Recall  Dir 

382 

aa 

1  H 1 

WD 

r- 

5 

383 

07 

1  JZ 

X 

384 

A/l 
w*t 

o<? 

WD 

Recall  Dir 

385 

oo 

'  /W 

Oft 

8 

386 

1 1 

x± 

Write 

387 

OR 

uo 

00 

Q  A 
O.U 

388 

OA 

1  IH 

O^ 

WD 

Recall  uir 

ion 

389 

0? 

OI 

O  1 

390 

OA 

i  m 

11 

Write 

391 

OA 

I/O 

OI 

1 11 

6.1 

in. 

392 

OA 

I IH 

OI 

Wl 

—  Dir 

393 

oo 

1 II J 

Oft 

1  >o 

o 

O 

on  / 

394 

OA 
1 1H 

WD 

Recall  Dir 

*%n  c 

395 

OO 

OA 

wo 

6 

396 

OA 

07 

w  c 

x  Dir 

3^7 

oo 

1  M  I 

Oft 

1  JO 

o 
o 

inn 

398 

OA 

i  m 

0«i 
1  >D 

Recall  Dir 

399 

oo 

1 M  J 

Oft 

1  JO 

8 

400 

OA 

WO 

oo 

1 11 } 

+ 

/  n  f 

401 

07 

W  / 

OA 

WO 

6 

40Z 

07 

W  / 

07 

W  / 

7 

403 

07 

W  / 

W  J 

3 

404 

OA 
1  »H 

1  7 

Write  alpn 

OA 

i  m 

OA 
1  IO 

x  10-6 

406 

OA 

wo 

07 
1  ;Z 

X 

407 

OA 

1  ;0 

O^ 

WD 

i 

/  no 

408 

o/. 

11 

Write 

409 

o<> 

WD 

07 

W  J 

5.3 

410 

OA 

W  J 

Recall  Dir 

/in 
411 

oo 

WW 

OA 
1  >H 

4 

412 

OA 

OO 

wu 

+ 

/.TO 

413 

OA 

wo 

o^ 

W  J 

1 

414 

OA 

Kecall  Y 

415 

oo 

I  )W 

oo 

WW 

0 

416 

o^ 

WD 

OA 
1  ;h 

btore  Ind 

/IT 

417 

07 

1 1 1 

OI 

Wl 

1 

418 

A/. 

no 

+  Dir 

/  i  n 

419 

00 

00 

0 

420 

04 

00 

+  Dir 

421 

00 

04 

4 

Comments 


Print  net  radiation,  Rn 


Print  G. 


Print  potential  Etp  in  inches. 


Date  +  E 


tp 


Store  date  +  £ 


tp 


Increment  register  number. 
Increment  date. 
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Step 

Code 

Key 

422 

n/. 
1'4 

1  0 

IZ 

Write  alpha 

423 

m 

l  Jo 

CR/LF 

/  i  / 

424 

nA 
•  14 

1  1 

X  j 

End  alpha 

425 

nA 
U4 

1  c 

13 

Recall  Y 

426 

nn 

0 

427 

u  / 

ni 

ui 

1 

428 

no 

U  / 

n£ 
•  in 

6 

429 

n^ 

Uj 

no 

UM 

Skip  if  Y  =  X 

430 

nA 

U4 

n7 

u  / 

Search 

431 

n"7 

U  / 

m 

Ul 

1 

432 

n<; 

i  ij 

1  c 

Ij 

Stop 

433 

nA 

'  14 

Uo 

Mark 

434 

l)/ 

no 

2 

435 

nA 

1  1 

XX 

Write 

436 

1  C 

IJ 

i  n 

1U 

10  spaces 

437 

nA 
04 

1  o 

IZ 

Write  alpha 

438 

ni 

Ul 

n  o 

U  j 

Shift  up 

439 

no 

no 

L 

440 

m 

I JX 

no 

0 

441 

no 

'  iz 

1  0 

1Z 

C 

/  /  O 

442 

ni 

ux 

1  0 

IZ 

A 

A 

443 

no 

i  iz 

n7 

»  1 1 

T 

/  /  / 

444 

m 

OA 

1 

1 

/.  /.  c 
44  _> 

m 
i  >X 

no 

UM 

(J 

446 

no 

'  IZ 

n£ 

1  ID 

N 

447 

no 

uz 

space 

448 

no 

1  IZ 

449 

i  ^ 

X  -3 

End  alpha 

450 

nA 

XX 

Write 

451 

1  c 

1 J 

1 J 

15  spaces 

452 

nA 
1)4 

1  O 

IZ 

Write  alpha 

453 

m 

n  o 

U  J 

Shift  up 

/  r  / 

454 

no 

uz 

nn 

I  M  1 

B 

455 

no 

n  1 

E 

456 

nn 

15 

G 

457 

Ul 

n/. 
U4 

1 

/CO 

458 

no 

UZ 

n£ 
uo 

N 1 

IN 

459 

no 
i  iz 

nA 

uo 

N 

460 

ni 

1  (X 

nA 
<  14 

1 

461 

no 

uz 

n£ 
<  in 

IV  1 

462 

nn 

G 

463 

nn 

no 

I »z 

space 

464 

no 

uz 

1 o 

X  j 

D 

465 

m 

*  »x 

1  0 

IZ 

A 

A 

4of» 

no 

> iz 

no 

u  / 

I 

467 

UZ 

n  ^ 

E 

468 

fin 

no 

uz 

space 

46  m 

1  0 

ni 

I IX 

Printer  off 

470 

U4 

1 1 
13 

End  alpha 

471 

n^ 

i  ^ 

ij 

Stop 

47Z 

04 

12 

Write  alpha 

473 

12 

00 

Printer  on 

474 

01 

08 

CR/LF 

Comments 


If  register  number  <  16,  GO  TO  Step  142. 


When  ET  calculations  are  completed,  insert  new  page  in 
printer  and  key  Search  2.  Headings  for  the  scheduling 
program  are  printed. 


Turn  printer  to  manual,  type  date,  return  printer  to  auto, 
key  GO. 
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Step 

Code 

Ke 

475 

01 

10 

Index  ( 

476 

01 

03 

Shift  u 

477 

00 

14 

F 

478 

01 

04 

1 

479 

02 

05 

E 

480 

02 

09 

L 

481 

02 

13 

D 

482 

00 

02 

space 

483 

00 

02 

484 

00 

02 

485 

00 

02 

486 

02 

13 

D 

487 

02 

05 

E 

488 

00 

05 

P 

489 

02 

09 

L 

490 

02 

05 

E 

491 

02 

07 

T 

492 

01 

r\/. 

1 

493 

01 

09 

0 

494 

02 

06 

N 

495 

00 

02 

space 

496 

00 

02 

497 

f\f\ 

00 

02 

498 

00 

02 

499 

00 

02 

500 

00 

02 

501 

00 

02 

502 

00 

02 

503 

02 

13 

D 

504 

01 

12 

A 

505 

00 

01 

Y 

506 

oo 

02 

space 

507 

02 

07 

T 

508 

01 

09 

0 

509 

00 

02 

space 

510 

01 

04 

1 

511 

01 

13 

R 

512 

01 

13 

R 

513 

01 

04 

1 

514 

00 

15 

G 

515 

01 

1  o 

12 

A 

516 

02 

07 

T 

517 

A1 

02 

05 

E 

518 

00 

02 

space 

519 

00 

02 

520 

00 

02 

521 

00 

02 

■ 

522 

00 

02 

523 

01 

12 

A 

524 

01 

15 

M 

525 

01 

09 

0 

526 

02 

14 

U 

527 

02 

06 

N 

Comments 


27 


otep 

Code 

coo 

528 

AO 

oz 

A  *7 

07 

T 

529 

on 

no 

1  ;Z 

space 

con 

j  JO 

AO 

oz 

A  "7 

07 

T 
1 

C  O  1 

531 

AT 

01 

AA 

09 

0 

COO 

532 

A  A 

AO 

Oz 

space 

COO 

533 

A1 

0JL 

1  o 

lz 

A 

CO/ 

534 

AA 

00 

AC 

03 

P 

cot 

535 

AC. 

0j 

P 

CO/ 

536 

no 

1  IZ 

no 

L 

coo 

537 

AA 

AT 

01 

Y 

COO 

538 

m 

no 

I  Jo 

/-\  i— )  /i  r" 

CR/LF 

C.  Ofl 

j  J" 

n/i 

1  0. 

1 J 

End  alpha 

C  /.  A 

n/i 

11 

Write 

541 

1  c 

1  j 

AO 

oy 

9  spaces 

C  /.  O 

542 

n/. 

1  0 

iz 

Write  alpha 

c  /  o 

543 

AO 
( IZ 

AC. 

I'D 

r— 

E 

c  /  / 

544 

m 

I  IX 

s 

c/.  c 
34  J 

AO 

A  O 

07 

T 
1 

54b 

01 

A£ 

06 

• 

547 

00 

A  O 

02 

space 

r  /  o 

548 

A  A 

00 

AO 

Oz 

C  /  rt 

549 

AA 

00 

AO 

Oz 

CCA 

550 

AA 

OO 

AO 

Oz 

551 

AA 

OO 

AO 

OZ 

ceo 

552 

A1 

01 

AO 

oy 

0 

CCO 

553 

AA 

OO 

AC. 

p 

c  c/. 
554 

AO 

AO 

0  / 

T 

T 

c  c  c 

555 

m 

Ol 

n£ 

06 

• 

C  C  £ 

556 

A/. 

04 

1  o 

1 J 

End  alpha 

CCl 

557 

11 

Write 

CCQ 

558 

1  c 

1 J 

1  o 

lz 

12  spaces 

CCA 

559 

A/. 

04 

11 

Write 

C  £  A 

560 

1  c 

1  o 

lz 

12  spaces 

C  £.  1 

561 

n/. 
04 

1  o 

lz 

Write  alpha 

C  £  O 

562 

Al 

01 

A/. 

04 

1 

c  c  o 
563 

AO 

oz 

A£ 

OO 

N 

C£/. 

564 

no 

1  O 

lz 

/""\ 

C 

c  c  c 

565 

n° 

u  z 

m 

UJL 

H 

AO 

Oz 

nc 

03 

L 

C£  "7 

567 

Al 

01 

Al 

01 

S 

C  £  o 

568 

A  A 

00 

AO 

Oz 

space 

C  ^  A 

569 

AA 

00 

AO 

Oz 

5/0 

AA 

00 

AO 

02 

571 

AT 

01 

1  o 

lz 

A 

A 

C  ^  O 

572 

AO 

Oz 

1  o 

12 

0 

C  T  O 

573 

Al 

01 

1  O 

13 

R 

C  "7  / 

574 

AO 

02 

05 

E 

C  "7  C 

575 

AT 

01 

r\  o 

02 

Shift  down 

C  T  £ 

576 

A  A 

00 

A  A 

00 

577 

01 

03 

Shift  up 

578 

01 

OA 

1 

579 

02 

06 

N 

580 

01 

06 

• 

Comments 
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Step 

Code 

Key 

581 

01 

08 

CR/LF 

582 

04 

13 

End  alpha 

583 

15 

Stop 

584 

OA 

08 

Mark 

585 

AO 

02 

00 

Sub. 

586 

06 

A  / 

04 

T 

587 

A/. 

A/. 

04 

Store  Dir 

588 

A  A 

00 

1  A 

10 

10 

589 

A  T 

07 

AO 

08 

8 

590 

AT 

07 

AA 

09 

9 

591 

A/. 

1  o 

It 

Write  alpha 

592 

A/. 
04 

06 

x  10-6 

593 

At 

oo 

AO 
(It 

X 

594 

A  T 

07 

1  o 

12 

• 

595 

07 

A  A 

00 

0 

596 

07 

A  A 

00 

0 

597 

07 

A  C 

05 

5 

598 

AT 

07 

A1 

01 

1 

599 

AT 

07 

An 

09 

9 

600 

AT 

07 

AC 

05 

5 

601 

At 

Oo 

A1 

01 

602 

A  A 

04 

AC 

05 

Recall  Dir 

603 

r\f\ 
IJU 

1  A 

10 

604 

At 

On 

AO 

02 

X 

605 

A  T 

07 

1  o 

12 

• 

606 

07 

AO 

02 

2 

607 

07 

09 

9 

608 

07 

A  / 

04 

4 

609 

07 

06 

6 

610 

A£ 

On 

00 

+ 

611 

At 

Oo 

A  C 

05 

i 

612 

A/. 

04 

AO 

02 

x  Dir 

613 

AA 

ou 

1  A 

10 

10 

614 

AT 

07 

1  o 

12 

• 

615 

AT 

07 

At 

06 

6 

616 

AT 

07 

An 

09 

9 

617 

AT 

07 

AC 

05 

5 

618 

07 

09 

9 

619 

A/ 

04 

01 

—  Dir 

620 

AA 

00 

10 

10 

621 

1  c 

13 

Recall  Y 

too 

00 

10 

1  A 
10 

623 

05 

11 

Return 

624 

05 

12 

End  program 

Comments 


Subroutine  for  calculating  vapor  pressure  as  a  function  of 
temperature. 
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B.  Irrigation  Scheduling  Programs 
1.  Wang  Model  600,  Verify  Number  5863  (version  11/28/72) 


otep 

Code 

Key 

Comments 

u  u  u  u 

00 

05 

E5 

Tn  ctart   Low  PRIMF  HO 
IU  Mail,  Key  rrxllVIC.,  vaU. 

n  n  n  i 
u  u  U  1 

00 

0  1 

E  1 

n  n  n  o 
UUU^ 

09 

02 

* 

a 

rveau  neiu  udid  Trom  Tape,  STore  in  regisTers 

n  n  n  "z 

08 

0  1 

*  RE 

id-oi,  two  registers  per  iieia. 

n  a  n  / 

0004 

0  0 

0  1 

F  1 

a  a  n  c 

0  0  0  5 

0  0 

0  6 

E  6 

0  0  0  6 

0  6 

1  2 

ST  12 

Set  first  field  register  number  in  register  12 

0  0  0  7 

0  9 

0  0 

* 

M 

i~\  f*\  f\  n 

0  0  0  8 

0  0 

0  1 

E  1 

0  0  0  9 

0  0 

1  0 

E10 

Initialize  registers  1-3. 

0  0  10 

0  0 

0  0 

E  0 

A  A    1  1 

00  11 

00 

0  1 

E  1 

0  0  12 

0  6 

0  3 

Si  3 

00  1; 

0  6 

0  2 

ST  2 

A  A   1  / 

0  0  14 

0  6 

0  1 

ST  1 

A  A    1  C 

0  0  15 

1  5 

1  1 

Oil 

0  0  16 

0  7 

1  2 

R£  12 

Recall  data  for  one  field,  unpack  data  and 

0  0  1/ 

0  9 

0  2 

* 

a 

store  in  keyboard  registers. 

0  0  1  O 

1  1 

1  0 

F  10 

A    A    1  A 

oo  l  y 

0  6 

1  4 

ST  14 

r>  n  o.  n 

0  0  2  0 

0  9 

1  2 

* 

I 

0  0  2  1 

0  6 

1  1 

ST  11 

Store  field  number  in  11. 

f"\  O  O 

0  0  2  2 

0  3 

1  4 

-14 

o.  n  o.  "Z 

0  0  2  3 

0  9 

0  2 

* 

AAA/ 

0  0  2  4 

I  0 

0  7 

f  7 

0  0  2  5 

0  6 

1  4 

ST  14 

0  0  2  6 

0  9 

1  2 

* 

I 

0  0  2  7 

0  6 

0  5 

ST  5 

Store  efficiency,  acres,  optimum  depletion 

0  0  2  8 

0  3 

1  4 

- 14 

per  foot  in  5. 

0  0  2  9 

0  9 

0  2 

* 

0  0  3  0 

1  0 

0  1 

i  1 

0  0  3  1 

0  6 

0  6 

SI  6 

otore  depletion  in  o. 

0  0  3  2 

0  0 

0  1 

E  1 

0  0  3  3 

0  2 

I  2 

+  12 

Increment  register  number. 

0  0  3  4 

1  5 

1  1 

Dll 

0  0  3  5 

07 

1  2 

Rtl2 

Recall  second  half  of  field  data,  unpack. 

0036 

09 

02 

* 

a 

0037 

1  1 

1  0 

F1U 

0038 

06 

1  4 

SI  14 

0039 

09 

1  2 

* 

I 

30 


Step 

Code 

Key 

Comments 

0040 

0  6 

1  5 

ST  15 

004  1 

0  4 

U  I 

x  1 

Store  rainfall  or  irrigation  for  previous  3  days. 

004  2 

0  7 

1  P 

Kt  15 

R_a  in  1. 

004  3 

0  3 

1  4 

-14 

0044 

0  9 

U  2 

* 

a 

0045 

1  0 

0  2 

f  2 

0046 

0  6 

1  4 

Si  14 

0047 

0  9 

1  2 

* 

1 

0048 

0  6 

l  P 

ST  15 

0049 

0  4 

U  2 

x2 

Store  R-2  in  2. 

0050 

0  7 

1  P 

K£15 

005  1 

0  3 

I  4 

-14 

0052 

0  9 

U  C 

-* 

a 

0053 

1  0 

U  2 

f  2 

0054 

0  6 

1  4 

ST  14 

0055 

0  9 

1  2 

* 

I 

0056 

0  6 

l  5 

ST  15 

0057 

0  4 

U  3 

x  3 

Store  R_3  in  3. 

0058 

0  7 

I  P 

RE15 

0059 

0  3 

1  4 

-14 

0060 

0  9 

0  2 

* 

a 

006  1 

1  0 

0  3 

f  3 

0062 

U  6 

1  4 

ST  14 

0063 

0  9 

1  2 

* 

I 

0064 

0  6 

U  4 

ST  4 

Store  planting  date  in  4. 

0065 

0  3 

1  4 

-14 

0066 

0  9 

0  2 

* 

a 

0067 

1  0 

0  3 

f  3 

0068 

0  9 

1  2 

* 

1 

0069 

0  6 

0  0 

ST0 

Store  effective  cover  date  in  0. 

0070 

0  0 

0  5 

E5 

007  1 

0  0 

0  2 

E2 

0072 

0  6 

1  3 

ST  13 

Set  first  Penman  register  number  in  register  13. 

0073 

0  9 

0  0 

# 

M 

0074 

0  0 

U  4 

E4 

0075 

1  5 

1  1 

Dll 

0076 

0  7 

1  3 

RED 

Recall  date  +  Penman  potential,  Etp . 

0077 

0  6 

1  4 

ST  14 

0078 

0  9 

1  2 

* 

I 

0079 

0  6 

0  8 

ST  6 

Store  date  in  8. 

0080 

U  J 

1  A 

-14 

006  1 

09 

04 

* 

0082 

08 

00 

*  S 

If  Etp  =0,GO  TO  Step  383. 

Step 

Code 

Key 

Comments 

r\  r\  r~\  ~z 

0  0  8  3 

0  P 

1  5 

+ 11? 

0  0  8  4 

i  n 

f*T  \  f\ 

ST  10 

Store  ttp  in  10. 

0  0  8  5 

0  7 

1  i 

K£  1 1 

r\  C\  n 

0  0  8  6 

0  9 

0  2 

* 

a 

n  n  ft  7 

U  u  O  1 

1  1 

0  5 

r  P 

n  n  q  q 

U  U  o  O 

06 

1  4 

SI  14 

n  n  ft  o 
u  u  o  y 

0  7 

0  8 

Kh  8 

uispiay  date  ana  iieia  numDer,  oiop. 

nnon 
u  u  y  u 

0  2 

1  4 

+ 14 

it  ri6iQ  numuer  is  zero,  klvviinu  xape,  Key  lumu 

D  0  Q  1 
u  u  y  i 

0  9 

0  3 

CD 

r r\Uu,  oLMr\un  u.  upiJditiU  udid  is  stored  on  xape 

n  n  q  o 
u  u  y  £ 

0  6 

0  9 

CT  O 

If  field  number  is  non  zero,  key  rainfall  + 

n  n  o  x 
u  u  y  ? 

0  9 

0  0 

# 

M 

irrigation  amount  for  the  date  displayed, 

n  n  o  a 
u  u  y  ** 

0  4 

1  4 

V  1  A 

x  14 

Key  bu. 

n  n  o  ^ 
u  u  y 

0  7 

0  5 

Kt  P 

btore  K  +  I  in  y. 

n  n  o  ^ 
UUy  6 

0  9 

0  2 

* 

a 

Recall  and  unpack  optimum  depletion  in  inches 

n  n  a  n 

u  u  y  / 

1  1 

0  2 

F  2 

per  foot,  store  in  7. 

n  n  o  u 

uuy  o 

0  6 

1  4 

SI  14 

n  n  o  o 
u  u  y  y 

0  9 

1  2 

# 

T 
I 

n  i  n  n 

U  1  u  u 

03 

1  4 

14 

U  1  U  I 

0  6 

0  7 

U  1  U<! 

0  7 

0  8 

Kt  8 

U  1  U; 

0  6 

1  4 

ST  14 

U  1  U  4 

0  9 

0  2 

a 

0  10  5 

0  8 

0  5 

m  T 

0  l  0  6 

o  a 

0  0 

*  s 

It  Uate  is  atter  effective  cover,  uu  I  u  otep  o4i. 

U  1  U  / 

0  0 

0  5 

b  1? 

U  1  U  8 

07 

04 

Kt  4 

- 

0  10  9 

00 

1  2 

E  12 

0  110 

0  6 

1  5 

sr  is> 

n  1  1  1 

0  2 

1  4 

+  14 

(Date  —  Planting  date) 

0  112 

0  7 

0  0 

Kt  U 

"  (Eff.  Cover  —  Planting) 

0  113 

0  2 

1  5 

+ 15 

11/. 

0  114 

0  5 

1  4 

•    1  L 

1    T  14 

0  115 

0  6 

1  5 

SI  1? 

otore  r  in  lo. 

0  116 

0  0 

0  3 

uaicuiate  root  zone  aepin. 

0  117 

0  0 

1  0 

1 1U 

0  118 

0  0 

0  5 

i  t  P 

For  corn,  Dr  =  .5  +  3.5  r. 

0  119 

0  4 

1  5 

x  Y) 

0  12  0 

0  0 

0  0 

t  U 

0  12  1 

0  0 

1  0 

t  ill 

0  12  2 

n  n 

u  u 

n  5 

t  P 

0  12  3 

02 

1  5 

+  1? 

0  124 

04 

07 

x  7 

Optimum  depletion  in  inches,  D0  in  7. 

0  125 

07 

1  4 

KfcM 
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Step 

Code 

Key 

Comments 

0  126 

06 

1  5 

SI  15 

Calculate  crop  coefficient,  Kc ,  before 

0  127 

00 

0  1 

E  1 

effective  cover. 

0  128 

00 

1  0 

E 10 

Kco  =  Ar3-\-Br2  +  Cr  +D 

0  129 

00 

05 

E5 

.    Constant  A. 

0  130 

00 

08 

E8 

0  13  1 

00 

0  3 

E3 

0  132 

00 

1  2 

E12 

0  133 

04 

1  4 

*14 

0  134 

0  0 

02 

E2 

Constant  B. 

0  135 

0  0 

1  0 

E 10 

0  136 

00 

07 

E7 

0  137 

00 

05 

E5 

0  138 

00 

06 

E6 

0  139 

02 

1  4 

+  14 

0  140 

07 

1  5 

Khl5 

0  14  1 

04 

1  4 

*14 

0  142 

00 

1  0 

E  10  

-    Constant  C. 

0  14  3 

00 

04 

E4 

0  14  4 

00 

02 

E2 

0  145 

00 

07 

E7 

0  14  6 

00 

06 

E6 

0  147 

00 

1  2 

E12 

0  148 

02 

1  4 

+  14 

0  149 

04 

1  5 

xl5 

0  150 

00 

00 

E0  

-    Constant  D. 

0  15  1 

00 

1  0 

Ell) 

0  152 

00 

02 

E2 

0  153 

00 

0  1 

E  1 

0  154 

00 

03 

E  3 

0  155 

02 

1  5 

+  15 

Kco  stored  in  15. 

0  156 

09 

00 

*  M 

0  15  7 

00 

06 

E6 

0  158 

07 

1  5 

Kt  15 

0  159 

06 

1  4 

ST  14 

0  160 

00 

0  1 

E  1 

0  16  1 

03 

1  4 

-U 

0  162 

00 

1  2 

EU 

0  163 

08 

05 

*  J* 

If  Kco>  1,  Kco  =  1. 

0  164 

00 

0  1 

E  1 

0  165 

06 

1  5 

sns 

0  166 

07 

06 

Kt6 

Reduce  crop  coefficient  for  stress. 

0  16  7 

06 

1  4 

SI  14 

0  168 

00 

05 

E  5 

Ratio  of  optimum  depletion  to  total  depletion 

in  percent. 


Step 

Code 

Key 

0  16  9 

0  0 

0  0 

EO 

0  170 

0  4 

1  4 

x  14 

0  17  1 

0  7 

0  7 

til  7 

0  4  7  2 

0  b 

1  4 

t!4 

0  17  3 

0  0 

0  9 

E  9 

0  17  4 

0  0 

0  9 

E  9 

0  17  5> 

0  3 

1  4 

-14 

0  176 

0  8 

0  5 

*  J* 

0  17  7 

0  8 

0  0 

*  S 

0  17  8 

0  3 

1  4 

-14 

0  179 

0  0 

1  0 

EiU 

0  180 

0  0 

0  1 

E  1 

0  18  1 

0  3 

0  6 

-  6 

0  182 

0  8 

0  0 

*  S 

0  183 

0  0 

0  6 

E6 

0  184 

0  9 

0  0 

* 

0  185 

0  3 

1  4 

-14 

0  186 

0  0 

1  2 

E12 

0  187 

0  6 

1  4 

ST  14 

0  188 

0  0 

0  2 

E2 

0  189 

0  2 

1  4 

+  14 

0  190 

0  8 

1  0 

*  LN 

0  19  1 

0  4 

1  5 

*15 

0  192 

0  0 

0  1 

E  1 

0  193 

0  0 

0  0 

EO 

0  194 

0  0 

0  1 

E  1 

0  195 

0  8 

1  0 

*  LN 

0  196 

0  5 

1  5 

t15 

0  197 

0  0 

1  0 

E 10 

0  198 

0  0 

0  9 

E9 

0  199 

0  6 

1  4 

ST  14 

0200 

U  / 

Kfcl5 

020  1 

U  3 

1  4 

-14 

0202 

U  8 

U  D 

*  J* 

0203 

0  8 

0  0 

*  S 

0204 

0  0 

0  8 

E8 

0205 

0  7 

1  0 

RE  10 

0206 

0  4 

1  4 

xl4 

0207 

0  7 

0  1 

K£1 

0208 

0  9 

0  4 

* 

0209 

08 

0  0 

*  S 

02  10 

00 

09 

E9 

02  11 

00 

1  0 

E 10 

Comments 


M 


In  (101- 50  XDP/D0) 
In  (101) 


If  Dp  <  .99  X  Total  depletion,  GO  TO  Step  184. 


DP=DP  -.1 


GO  TO  Step  156. 


Adjusted  Kc  in  15. 


If  Kc>.9,  GO  TO  Step  240. 


Calculate  additional  Et  from  rain  or  irrigation 
within  three  prior  days. 


If  R_i  =0,  GO  TO  Step  317. 


34 


Step 

Code 

Key 

Comments 

02  12 

u  0 

0  8 

E8 

Etr=.8X(.9-Kc)XEtp 

02  13 

0  4 

1  4 

xl4 

02  14 

0  3 

0  I 

-  1 

R_x=R_a-Etr 

02  15 

U  U 

1  o 

E12 

02  16 

0  8 

0  5 

*  J* 

02  17 

0  8 

U  U 

*  S 

If  R_a  >0,  GO  TO  Step  236. 

02  18 

G  0 

1  1 

Ell 

02  19 

U  3 

□  2 

-2 

R_2  =  R -2    R-i,  R -i  =  0 

0220 

0  1 

0  1 

T  1 

022  1 

0  7 

U  2 

Kt2 

0222 

0  9 

0  0 

* 

M 

0223 

0  0 

1  2 

E12 

0224 

0  0 

1  2 

E12 

0225 

0  8 

0  5 

*  J* 

0226 

Pi  n 

0  8 

p.  p. 

u  u 

*  S 

If  R-2  >0,  GOTO  Step  236. 

0227 

0  0 

i  1 

I  l 

Ell 

0228 

0  3 

pi  ~T 

0  3 

-3 

R-3  =  R_3  —  R-2 .  R-2  —  0 

0229 

0  l 

0  2 

T2 

0230 

0  9 

0  0 

* 

M_ 

023  1 

U  U 

p.  ~i 

U  3 

E3 

0232 

pi  n 

0  7 

U  .5 

RE3 

0233 

0  8 

0  5 

*  Jf 

0234 

U  2 

1  4 

+  14 

If  R-3  <0,Etr=Etr+R_3. 

0235 

0  8 

0  3 

*  Go 

0236 

0  9 

0  0 

* 

M 

0237 

0  0 

1  1 

Ell 

0238 

0  7 

1  4 

RE  14 

0239 

U  2 

U  6 

♦  6 

Dp  —Dp  +  Etr 

0240 

0  9 

0  0 

* 

M 

024  1 

0  0 

0  8 

E8 

Calculate  depletion. 

0242 

p.  n 

0  7 

1  5 

RE  15 

0243 

0  4 

1  0 

xiO 

0244 

0  2 

0  6 

+  6 

0245 

0  7 

0  1 

Kt  1 

0246 

1  4 

P,  ^\ 

0  2 

C2 

0247 

0  6 

P>  -T 

0  3 

ST  3 

0248 

0  7 

p  p. 

0  9 

KE9 

R_2=R-i,R-3  —  R-2 

0249 

0  6 

p  « 
0  1 

ST  1 

R-i  =R  +  I 

0250 

0  3 

0  6 

-6 

Dp  =DP  +KC  XEtp  -(R  +  /) 

025  1 

0  8 

0  5 

*  J* 

0252 

0  0 

0  0 

E0 

If  Dp  <0,  Dp  =0. 

0253 

06 

06 

ST  6 

0254 

00 

1  0 

EiO 

35 


Step 

Code 

Key 

Comments 

0255 

0  0 

09 

E9 

0256 

0  3 

09 

-9 

0257 

0  0 

1  2 

E12 

0256 

08 

0  5 

*  J* 

0259 

0  7 

09 

KE9 

If  (R  +  /)>.9,  R_i  =  .9. 

0260 

0  3 

0  1 

-  1 

026  1 

00 

0  1 

E  1 

0262 

02 

1  3 

+  13 

Increment  Penman  register  number. 

0263 

06 

1  4 

ST14 

0264 

00 

0  5 

E5 

0265 

0  0 

0  6 

E6 

0266 

0  3 

1  4 

-14 

0267 

08 

05 

*  J* 

0268 

08 

0  0 

*  S 

If  reg.  number  <  55,  GO  TO  Step  73. 

0269 

0  0 

0  4 

E4 

0270 

09 

04 

*  J# 

02  7  1 

08 

00 

*  S 

If  reg.  number  =  56,  GO  TO  Step  383 

0272 

02 

1  5 

+  15 

02  7  3 

0  9 

00 

*  to 

02  74 

04 

1  5 

*15 

0275 

0  7 

0  7 

KE7 

02  76 

06 

1  4 

SI  14 

027  7 

0  7 

06 

KE6 

0278 

0  3 

1  4 

-14 

02  7  9 

08 

05 

*  J» 

0280 

08 

00 

*  S 

If  Dp  >  D0,  GO  TO  Step  450. 

028  1 

0  0 

1  5 

E15 

0282 

0  0 

0  2 

E2 

0283 

0  0 

0  4 

E4 

0  28  4 

0  0 

0  5 

E5 

0285 

0  6 

1  4 

ST  14 

0286 

07 

08 

kt  8 

0287 

0  3 

1  4 

-14 

0288 

08 

05 

*  J* 

0289 

08 

00 

*  S 

If  date  >  Nov.  1 ,  GO  TO  Step  456. 

0290 

0  2 

1  4 

+  14 

029  1 

0  0 

1  0 

E10 

029  2 

00 

0  3 

E3 

Set  maximum  average  potential  £ta . 

0293 

06 

1  0 

ST  10 

Calculate  average  potential  Eta 

029  4 

00 

0  1 

E  1 

029  5 

00 

0  3 

E3 

If  date  <  137,  /date  =  150. 

0296 

00 

07 

E7 

029  7 

06 

1  4 

ST  14 

If  date  >  137,  /date  =  95. 

36 


Step 

Code 

Key 

Comments 

0  2  9  8 

00 

05 

E  5 

["Date -1371 2 

0  2  9  9 

00 

05 

E  5 

Idate 

0  3  0  0 

06 

1  5 

SI  15 

F    =  0  3  x  9 

0  3  0  1 

00 

0  1 

F  1 

I —  1 

0  3  0  2 

\J  S  \J 

02 

08 

+  ft 

I  1  IL.  1  til  Id  1  L  L/alc. 

0  3  0  3 

03 

1  4 

0  3  0  4 

08 

05 

*  J* 

0  3  0  5 

00 

00 

E  0 

0  3  0  6 

06 

1  5 

ST15 

0  3  0  7 

00 

09 

E  9 

0  3  0  R 

\J   S   \J  O 

00 

05 

E  5 

0  3  0  9 

02 

1  5 

+  15 

0  3  10 

05 

1  4 

-  u 

•  i  "t 

0  3  11 

08 

1  2 

*  X2 

0  3  12 

08 

1  1 

*  e* 

0  3  13 

05 

1  0 

flO 

Store  Eta  in  10. 

0  3  14 

0  1 

09 

T  9 

0  3  15 

08 

00 

*  S 

GO  TO  Sten  93 

0  3  16 

04 

1  4 

x  14 

0  3  17 

09 

00 

IVi 

0  3  18 

00 

09 

F  Q 

0  3  19 

07 

02 

M  2 

0  3  2  0 

09 

04 

L 

0  3  2  1 

Ob 

00 

*  s 

If  R  o=0  GO  TO  Steo  329 

0  3  2  2 

00 

1  0 

E  10 

0  3  2  3 

S  C—  s 

00 

1  0 

F  10 

0  3  2  4 

v    ✓  *T 

00 

05 

E  5 

F    =05XC9  —  K  )XE 

0  3  2  5 

04 

1  4 

x  14 

0  3  2  6 

03 

02 

-  2 

r\  —  2       •»  —  2  tr 

0  3  2  7 

08 

00 

*  s 

GO  TO  Sten  222 

0  3  2  8 

w    >    Cm  W' 

00 

1  2 

E  12 

0  3  2  9 

S     Cm  7 

09 

00 

M 

0  3  3  0 

\J  *S  *s  \J 

00 

1  0 

E  10 

L.  AU 

0  3  3  1 

07 

0  3 

K£  3 

0  3  3  2 

09 

04 

iff 

0  3  3  3 

08 

00 

*  s 

if  p  _  =  o  GO  TO  Sten  240 

0  3  3  4 

00 

08 

e  a 

0  3  3  5 
u  ✓  >  ✓ 

00 

1  0 

E  10 

0  3  3  6 

00 

03 

F  3 

F    —  03X(9—  K  WF 

0  3  3  7 

0  4 

1  4 

x  14 

0  3  3ft 
U  P  >  o 

03 

03 

P      —  P      —  F 

03  39 

08 

00 

*  S 

GO  TO  Step  230. 

0340 

00 

03 

E3 

37 


oiep 

Code 

Key 

Comments 

03  4  1 

0  9 

U  U 

*  M 

Calculate  crop  coefficient  after  effective  cover. 

0  3  4  2 

U  U 

U  9 

E  5 

0  3  4  3 

0  7 

Pi  Pi 

0  0 

Rh  0 

0  3  4  4 

U  3 

1  4 

-14 

r  =  (Date  —  effective  cover  date) 

0  3  4  5 

0  6 

1  5 

ST  15 

0  3  4  6 

p\  Pi 

0  u 

p>  o 
0  2 

E  2   

---Constant  A. 

0  3  4  7 

0  0 

0  7 

E  7 

0  3  4  8 

pi  pi 

Pi  C 

0  5 

E  5 

0  3  4  9 

0  0 

1  1 

Ell 

0  3  5  0 

Pi  Pi 

0  0 

l  2 

E12 

0  3  5  1 

0  0 

0  8 

E  8 

0  3  5  2 

0  4 

1  4 

x  14 

0  3  5  3 

pi  pi 

0  0 

pi  / 
0  4 

E  4  

—  Constant  B. 

0  3  5  4 

0  0 

0  6 

E  6 

0  3  5  5 

0  0 

0  8 

E  8 

0  3  5  6 

0  0 

0  8 

E  8 

0  3  5  7 

0  0 

1  2 

E12 

0  3  5  6 

Pt  Pi 

0  0 

1  1 

Eli 

0  3  5  9 

0  0 

1  2 

E12 

0  3  6  0 

0  0 

0  7 

E  7 

0  3  6  1 

0  2 

l  4 

+  14 

0  3  6  2 

0  / 

I  5 

KE 15 

0  3  6  3 

pi  / 

0  4 

1  4 

x  14 

0  3  6  4 

0  0 

l  0 

E 10  

—  Constant  C. 

0  3  6  5 

0  0 

0  0 

E  0 

0  3  6  6 

0  0 

0  1 

E  1 

0  3  6  7 

0  0 

Pi  1 

0  1 

E  1 

0  3  6  8 

0  0 

0  9 

E  9 

0  3  6  9 

Pi  Pi 

0  5 

E  5 

0  3  7  0 

U  2 

1  4 

+  14 

0  3  7  1 

0  4 

1  5 

x  15 

0  3  7  2 

0  0 

1  0 

E 10  

-  Constant  D. 

0  3  7  3 

0  0 

0  9 

E  9 

0  3  7  4 

Pi  Pi 

0  0 

Pi  1 

0  1 

E  1 

0  3  7  5 

0  0 

0  5 

E  5 

0  3  7  6 

0  2 

1  5 

+  15 

Kc  stored  in  15. 

0  3  7  7 

Pi  Pi 
0  0 

U  4 

E  4 

Set  rooting  depth. 

r\  ~9  n  r\ 

0  3  7  8 

n  n 

1  u 

E  10 

n  1  n  o 
U  >  f  y 

n  n 
u  u 

n  n 
u  u 

C  Pi 

t  U 

n  ~z.  a  pi 
U  5  O  U 

0  4 

0  7 

x  7 

Calculate  optimum  depletion  in  inches. 

0  3  8  1 

0  8 

0  0 

♦  S 

GO  TO  Step  156. 

0  3  82 

00 

06 

E6 

0  383 

09 

00 

*  M 

38 


Step 

Code 

Key 

Comments 

0384 

U  c 

1  K 
1  V 

+  15 

0  365 

U  o 

u  z 

*  w 

0  3  8  6 

n  n 
u  u 

i  r 
i  p 

E 15 

0387 

u  o 

n  o 

U  c 

*  W 

Print  two  spaces. 

0388 

U  U 

1  ^ 

E15 

0389 

U  / 

i  i 
i  i 

KL 11 

0390 

n  d 
u  o 

n  o 

*  W 

Print  field  number. 

0  3  9  1 

u  o 

n  n 
u  u 

*  s 

0  3  9  2 

u  / 

n  a 
u  0 

Rt6 

039  3 

n  a 
u  o 

n  o 
u  z 

*  W 

Print  depletion. 

0  3  9  4 

u  o 

n  o 

U  c. 

ST  2 

0395 

n  n 
u  u 

n  1 

E  1 

Decrement  data  register  number. 

0396 

u  ? 

1  9 

-12 

0  3  9  7 

n  7 

n  7 

Kt  7 

0398 

u  o 

*  W 

Print  optimum  depletion. 

0  3  9  9 

u  .? 

U  £ 

-  2 

0400 

n  7 
u  / 

u  P 

KE5 

Repack  field  data. 

040  1 

n  o 
u  y 

U  Z 

* 

a 

0402 

i  i 
i  i 

n  7 
u  / 

F  7 

04  03 

n  o 

U  <: 

i  1 

+  11 

0404 

u  y 

U  d 

* 

a 

0405 

1  n 

n  a 

U  O 

i  8 

0  4  0  6 

u  o 

l  l 

ST11 

04  0  7 

n  7 
U  / 

U  o 

Kt6 

0408 

U  £ 

1  1 

+  11 

0409 

n  o 

U  7 

n  9 

* 

or 

0  4  10 

1  n 

u  Z 

f  2 

0  4  11 

1  1 
1  1 

Oil 

Store  field  number,  efficiency,  acres,  optimum 

0  4  12 

u  o 

1  9 

ST  12 

depletion  per  foot,  depletion. 

0  4  13 

n  n 

E  1 

0  4  14 

n  o 
U  £ 

1  O 

+  12 

Increment  register  number. 

0  4  15 

n  n 
U  U 

U  1 

E  1 

Repack  second  half  of  field  data. 

04  16 

U  u 

U  U 

E  0 

04  17 

U  U 

U  U 

EO 

04  18 

U  0 

I  4 

SI  14 

0  4  19 

u  » 

U  1 

RE  1 

0  4  20 

u  4 

1  4 

*14 

0  4  2  1 

n  o 
u  y 

* 

I 

0422 

U  o 

1  4 

ST  14 

0  4  2  3 

n  7 
U  / 

U  c. 

Kfc2 

0424 

0  2 

1  4 

+  14 

0425 

09 

02 

•* 

or 

0426 

1  0 

02 

f  2 
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Step 

Code 

Key 

0427 

0  9 

1  2 

* 

1 

0428 

06 

1  4 

SI  14 

0429 

0  7 

0  3 

KL3 

0430 

0  2 

1  4 

+  14 

04  3  1 

0  9 

0  2 

* 

a 

04  3  2 

1  0 

0  2 

f  2 

0  4  3  3 

0  9 

1  2 

* 

I 

0  4  3  4 

0  9 

0  2 

* 

a 

0  4  3  5 

1  0 

0  3 

f  3 

0  4  36 

0  6 

1  4 

ST  14 

0  4  3  7 

0  7 

0  4 

K£4 

0  4  3  8 

0  2 

1  4 

+  14 

0  4  3  9 

0  9 

0  2 

* 

a 

0  44  0 

1  0 

0  3 

f  3 

0  4  4  1 

0  6 

1  4 

ST  14 

0  4  4  2 

0  7 

0  0 

KtO 

0  4  4  3 

0  2 

1  4 

+  14 

0  4  4  4 

1  5 

1  1 

Oil 

04  4  5 

0  6 

1  2 

ST  12 

04  4  6 

0  0 

0  1 

E  1 

04  4  7 

0  2 

1  3 

+  13 

0  4  4  8 

08 

0  0 

*  S 

04  4  9 

0  4 

1  5 

xl5 

0  4  50 

0  9 

0  0 

* 

M 

04  5  1 

0  0 

1  5 

E15 

04  5  2 

0  7 

1  0 

Kb  10 

04  5  3 

0  5 

1  4 

t14 

04  54 

0  9 

1  2 

* 

I 

0  4  55 

0  2 

0  8 

+  8 

0456 

0  9 

0  0 

* 

M 

0  4  5  7 

0  2 

1  4 

+  14 

04  58 

0  8 

0  2 

*  w 

0  4  5  9 

1  1 

0  0 

F0 

0  4  6  0 

0  8 

0  2 

*  W 

04  6  1 

0  0 

1  5 

E15 

0462 

0  7 

0  5 

RE5 

04  6  3 

0  9 

0  2 

* 

a 

04  64 

1  1 

0  2 

F2 

0465 

0  9 

1  2 

* 

I 

0466 

0  9 

0  2 

* 

a 

04  6  7 

1  1 

05 

F5 

0468 

06 

1  4 

ST14 

04  6  9 

05 

06 

t6 

Comments 


Store  R_!  ,  R_2 ,  R_3 ,  planting  date,  effective 
cover  date. 

Increment  Penman  register  number. 
GO  TO  Step  273. 


Calculate  irrigation  day. 


Date  =  Date  +  INT 


/D.-Dp\ 
t  KcXEj 


Print  day  to  irrigate. 
Space  printer. 


Inches  to  apply  =  DP  /Efficiency. 
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Step 

Code 

Key 

Comments 

0  4  7  0 

0  8 

0  2 

^  n 

Print  Hpnth  tn  annlv 

1    1  Bill.  VJ^LfLBI    WJ  auuiVi 

n  4  7  1 

0  2 

0  1 

n  A  7  9 

0  0 

0  1 

C  1 
C.  1 

1  Inr^QPiY  Q^r^ic 
LJ 1 1 \Ja u r\  aLico. 

0  4  7  3 

00 

00 

f  n 

c  u 

0  4  7  4 

00 

0  0 

f  n 

0  4  7  5 

04 

1  4 

x  U 

0  4  7  6 

09 

1  2 

T 
1 

0  4  7  7 

03 

1  4 

0  4  7  8 

09 

02 

tt 

M 

0  4  7  9 

1  0 

02 

•f  2 

0  4  ft  0 

VJ  f  O  *J 

04 

06 

0  4  ft  1 

v-/  *-f  O  1 

08 

02 

Print  aprp-inrhp<5  tn  annlv/ 
ri  mil  cm  c  1 1  i^i  i Co  iu  a ljlji  y  ■ 

0  4  8  2 

v  t  U  t. 

0  1 

0  1 

T  1 

1  1 

0  A  ft  3 

<J  *+  O  V 

00 

0  1 

F  1 

0  A  ft  A 

\J  *»  O  *t 

0  2 

1  2 

+  1? 
T  It 

1 1 IL I  cl  I  IcII  I  legible!  IIUIIIUcl. 

n  a  r  5 

u  *♦  o 

0  6 

1  4 

0  A  ft  £> 

00 

05 

E  5 

0  A  ft  7 
u  *»  o  / 

00 

02 

F  2 

0  A  ft  ft 

C  H  O  Q 

0  3 

1  4 

- 14 

It 

•- 

0  A  ft  9 
\J  *•  o  J* 

08 

04 

*  Jo 

0  4  9  0 

08 

00 

*  s 

If  field  number  <  52  GO  TO  Steo  7 

0  4  9  1 

00 

0  1 

E  1 

0  4  9  ? 

09 

03 

SP 

RpwinH  tanp  kpv  PRIMF  I  OAD  PROR 

iacvviihj  tape,  r\cy  rrviivii—,  i_ vy/vu/  r  i \  v-/vj , 

0  4  9  3 

09 

00 

* 

M 

SEARCH  0 

0  4  9  4 

U  f  7  H 

00 

00 

E  0 

n  A  9  5 
u  *f  7  y 

0  0 

05 

E  5 

VVi  lie  UpUa lt?U  UdLd  Ul  1  lafJt?. 

fl  A  9  £ 
U  *»  7  o 

00 

0  1 

E  1 

0  A  9  7 

0  9 

0  2 

d 

n  A  0  R 

u  «*  y  o 

09 

0  1 

ST 

•J  1 

0  4  9  9 

09 

03 

* 

SP 

Stop 

0500 

09 

1  4 

* 

End 

2.  Wang  Model  700A,  Verify  Number  7503 


Step 

Code 

Key 

Comments 

f\  s\  f\ 

000 

OA 

1  9 

J.  z 

Write  alpha 

001 

ai 

01 

10 

Index  (LF) 

To  start,  key  PRIME,  GO. 

002 

AT 

111 

A  O 

03 

Shift  up 

003 

ao 

nz 

1 o 

1Z 

C 

Print  crop  name. 

004 

uy 

0 

005 

ai 

01 

1  j 

R 

006 

ao 

02 

Oo 

N 

007 

AA 

in) 

AO 

OZ 

space 

008 

aa 

AO 

02 

OOP 

(  H  1 

no 

<  jz 

010 

HI 

no 

shift  down 

Oil 

01 

AO 

On 

CR/LF 

012 

a/. 
04 

1  o 

1 J 

End  alpha 

013 

at 

O  1 

AO 

oz 

2 

Store  in  register  120  the  starting  register  number  (20)  for 

014 

r\~i 

O  / 

AA 

oo 

0 

field  data. 

015 

f\i. 
04 

A/. 

04 

Store  Dir 

016 

1  o 

1Z 

AA 

OO 

120 

017 

a/. 
04 

AO 

Oo 

Mark 

018 

ao 

O  1 

A1 

01 

1 

019 

a/. 
('4 

ID 

Recall  Y 

Recall  data  for  one  field. 

020 

1  o 

12 

AA 

OO 

120 

021 

0_> 

03 

Recall  Ind 

Unpack  data. 

022 

a/. 

04 

1  o 

12 

Write  alpha 

023 

a/. 
04 

AO 

O  J 

+  Dir 

024 

I  )o 

I JM- 

T 

025 

I  JO 

no 

( In 

Integer  X 

AO/ 

026 

1  JO 

027 

1  0 

j.z 

Write  alpha 

028 

n/. 

AO 

u  / 

x  10~7 

029 

Store  Dir 

Field,  efficiency,  acres,  optimum  depletion  per  foot  in 

030 

a  s 

O  3 

5 

register  5. 

031 

uo 

a/; 
Oo 

n 

032 

a/. 
04 

1  o 

12 

Write  alpha 

033 

u  / 

Al 

Ol 

x  10 

034 

a/. 
U4 

A/. 

04 

Store  Dir 

Depletion,  inches  in  register  6. 

035 

AA 

A£ 

Oo 

6 

036 

AO 

(I  / 

AI 

01 

1 

037 

A  / 

04 

A  A 

00 

+  Dir 

Increment  field  register  number. 

038 

1  o 

1Z 

AA 

00 

120 

039 

a/. 

1_> 

Recall  Y 

Recall  second  half  of  data. 

040 

12 

A  A 

OO 

120 

041 

Od 

A  C 

03 

Recall  Indir 

042 

a/. 
04 

1  o 

12 

Write  alpha 

043 

ft/. 
04 

An 

x  10-10 

044 

A£ 

Oo 

A/. 

04 

T 

045 

On 

A  O 

On 

Integer  X 

046 

a/. 
04 

A/. 

04 

Store  Dir 

Rainfall  and/or  irrigation  for  previous  day,  R_!  in 

047 

on 

m 

1 

register  1. 

048 

06 

01 

049 

06 

05 

1 

050 

04 

12 

Write  alpha 
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Step 

Code 

Key 

051 

07 

02 

x  100 

052 

06 

04 

T 

053 

06 

08 

Integer  X 

054 

04 

04 

Store  Dir 

055 

00 

02 

2 

056 

06 

01 

— 

057 

06 

05 

i 

058 

04 

12 

Write  alpha 

05<> 

07 

02 

x  100 

060 

06 

04 

T 

061 

06 

08 

Integer  X 

062 

04 

04 

Store  Dir 

063 

00 

03 

3 

064 

06 

01 

— 

065 

07 

12 

• 

066 

07 

00 

0 

067 

07 

01 

1 

068 

04 

02 

x  Dir 

069 

00 

01 

1 

070 

04 

02 

x  Dir 

071 

00 

02 

2 

072 

04 

02 

x  Dir 

073 

00 

03 

3 

074 

06 

05 

i 

075 

04 

12 

Write  alpha 

076 

07 

03 

x  1000 

077 

06 

04 

T 

078 

06 

08 

Integer  X 

079 

04 

04 

Store  Dir 

080 

00 

04 

4 

081 

06 

01 

— 

082 

06 

05 

1 

083 

04 

12 

Write  alpha 

084 

07 

03 

x  1000 

085 

06 

08 

Integer  X 

086 

04 

04 

Store  Dir 

087 

00 

00 

0 

088 

07 

01 

1 

089 

07 

02 

2 

090 

04 

04 

Store  Dir 

091 

12 

01 

121 

092 

04 

08 

Mark 

093 

07 

04 

4 

094 

04 

15 

Recall  Y 

095 

12 

01 

121 

096 

05 

05 

Recall  Indir 

097 

06 

04 

T 

098 

06 

08 

Integer  X 

099 

04 

04 

Store  Dir 

100 

00 

08 

8 

101 

06 

01 

102 

07 

00 

0 

Comments 
R_2  in  register  2. 

R_3  in  register  3. 

Change  decimal  to  correct  position  for  previous  rainfall. 


Planting  date  in  register  4. 
Effective  cover  date  in  register  0. 

First  Penman-Date  register  number  (12)  in  register  121. 

Recall  Date  +  Etp. 
Store  date  in  register  8. 
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Step 

Code 

Key 

103 

06 

06 

n 

104 

05 

08 

Skip  if  Y  <  X 

105 

04 

07 

Search 

106 

06 

00 

+ 

107 

04 

04 

Store  Dir 

108 

00 

10 

10 

109 

04 

15 

Recall  Y 

110 

00 

08 

8 

111 

04 

05 

Recall  Dir 

111 

112 

00 

05 

5 

113 

06 

08 

Integer  X 

114 

05 

15 

Stop 

115 

04 

04 

Store  Dir 

116 

00 

09 

9 

117 

04 

08 

Mark 

118 

06 

01 

119 

04 

05 

Recall  Dir 

120 

00 

05 

5 

121 

04 

12 

Write  alpha 

122 

07 

05 

x  105 

123 

06 

04 

T 

124 

06 

08 

Integer  X 

125 

06 

01 

126 

04 

14 

Store  Y 

127 

00 

07 

7 

128 

04 

15 

Recall  Y 

129 

00 

08 

8 

130 

04 

05 

Recall  Dir 

131 

00 

00 

0 

132 

05 

08 

Skip  if  Y  <  X 

133 

04 

07 

Sea  rch 

134 

07 

05 

5 

135 

04 

05 

Recall  Dir 

136 

00 

04 

4 

137 

06 

01 

138 

07 

11 

Ch.  sign 

139 

04 

06 

Tl  Dir 

140 

00 

00 

0 

141 

04 

00 

+  Dir 

142 

00 

00 

0 

143 

04 

06 

n  Dir 

144 

00 

00 

0 

145 

06 

03 

146 

06 

05 

i 

147 

04 

04 

Store  Dir 

148 

00 

11 

11 

149 

07 

03 

3 

150 

07 

12 

• 

151 

07 

05 

5 

152 

06 

02 

X 

153 

07 

00 

0 

154 

07 

12 

• 

Comments 

If  Etp  =  0,  GO  TO  Step  474. 
Store  Etp  in  10. 

Display  date  in  register  Y,  field  number  in  X,  stop. 
Key  Rain  +  Irrigation  for  date  shown,  GO. 

Recall  and  unpack  optimum  depletion  per  foot. 

Store  optimum  depletion  per  foot  in  7. 

If  Date  >  Effective  cover  date,  GO  TO  Step  341. 
Calculate  fraction  of  time  from  planting  to  effective  cover. 

(Date  —  planting  date) 

r  =  

(Effective  cover  —  planting) 

Store  r  in  11. 
Calculate  rooting  depth. 
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Step 

Code 

Key 

Comments 

155 

07 

05 

5 

156 

06 

00 

+ 

157 

06 

05 

I 

158 

04 

02 

x  Dir 

Calculate  optimum  depletion  in  7. 

159 

no 

07 

7 

160 

04 

15 

Recall  Y 

161 

00 

11 

11 

Calculate  crop  coefficient. 

162 

07 

01 

1   .. 

...  Constant  A. 

163 

07 

12 

• 

164 

07 

05 

5 

165 

07 

08 

8 

166 

07 

03 

3 

167 

07 

11 

ch.  sign 

168 

06 

02 

X 

169 

07 

02 

2   

Constant  B. 

170 

07 

12 

• 

171 

07 

07 

7 

172 

07 

05 

5 

173 

07 

06 

6 

174 

06 

00 

+ 

175 

04 

05 

Recall  Dir 

176 

00 

11 

11 

177 

06 

02 

X 

178 

07 

12 

—  Constant  C. 

179 

07 

04 

4 

180 

07 

02 

2 

181 

07 

07 

7 

182 

07 

06 

6 

183 

07 

11 

ch.  sign 

184 

06 

00 

+ 

185 

06 

05 

I 

186 

04 

02 

x  Dir 

187 

00 

11 

11 

188 

07 

12 

•   

.__  Constant  D. 

189 

07 

02 

2 

190 

07 

01 

1 

191 

07 

03 

3 

192 

04 

00 

+  Dir 

193 

00 

11 

11 

Crop  coefficient  Kc  in  11. 

194 

04 

08 

Mark 

195 

07 

06 

6 

196 

04 

15 

Recall  Y 

197 

00 

11 

11 

198 

07 

01 

1 

199 

05 

08 

Skip  if  Y  <  X 

200 

04 

04 

Store  Dir 

If  Kc  >  1,  Kc  =  1. 

201 

00 

11 

11 

202 

04 

15 

Recall  Y 

Reduce  crop  coefficient  for  stress. 

203 

00 

06 

6 

204 

07 

05 

5   

Ratio  of  optimum  depletion  to  total 

205 

07 

00 

0 

206 

06 

02 

X 
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Step 

Code 

Key 

OAT 

207 

04 

05 

Kecaii  uir 

20o 

00 

07 

/ 

209 

06 

03 

210 

07 

09 

9 

211 

07 

09 

9 

212 

05 

07 

CL-ir.   if  V  Si  Y 
CSKIp  IT  T  ->  A 

oi  o 

21.5 

04 

07 

Search 

214 

07 

07 

/ 

215 

07 

12 

# 

11  c 

21o 

07 

0] 

1 
1 

21  / 

04 

01 

—  uir 

00 

06 

a 
o 

91  Q 

04 

07 

ocd  1  C 1 1 

lift 

220 

07 

06 

c 
o 

in 

221 

04 

08 

Mark 

222 

07 

07 

/ 

Oil 

223 

07 

01 

i 
l 

224 

07 

00 

u 

o  i  n 

07 

01 

i 
i 

1 1  £ 

Lib 

06 

01 

22  / 

06 

11 

1  r-i  V 

in  a 

99R 

04 

03 

—  uir 

no 

2ZV 

00 

11 

1 1 

2  JU 

06 

05 

i 

i 

2  Jl 

07 

11 

ch.  sign 

2  J2 

06 

11 

in  a 

2  J  J 

04 

02 

x  Dir 

1  "J  A 

2  J4 

00 

11 

1 1 

1 1  li 

2  J5 

04 

05 

Kecall  Dir 

9  1£ 

2  Jo 

00 

10 

i  r\ 
10 

2  J  / 

06 

04 

T 

11Q 

2  Jo 

04 

06 

U  Dir 

no 

2  J9 

00 

11 

1  1 

1  /.  f\ 

240 

06 

02 

X 

1/.  1 

241 

04 

14 

otore  y 

i/.  i 
242 

00 

10 

i  d 

243 

06 

04 

T 

244 

07 

12 

• 

245 

07 

09 

Q 

y 

246 

05 

08 

oKlp  IT  Y  s  A 

1/.  "7 

24  / 

04 

07 

oea rcn 

1  /.  Q 

24o 

07 

08 

Q 

o 

24M 

06 

06 

Tl 

250 

06 

01 

251 

06 

05 

j 

1  C  1 

252 

04 

02 

x  Dir 

O  C  1 

253 

00 

11 

1 1 

OCA 

254 

04 

15 

Kecaii  y 

1 ^  c 
255 

00 

01 

i 

Z5o 

07 

00 

u 

257 

06 

06 

Tl 

258 

05 

08 

Skip  if  Y  <  X 

Comments 


If  depletion  <  99  percent  total  depletion,  GO  TO  Step  221. 

Dp  =DP  -0.1 
GO  TO  Step  194. 


Adjusted  Kc  in  11. 


Etp  in  11. 


Et  =  Kc  x  Etp  in  10. 


If  Kc  >  0.9,  GO  TO  Step  308. 


(.9-  Kc)  x  Etp  in  11 
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Step 

Code 

Key 

L  jy 

04 

07 

Sea  rch 

9£n 

A  "7 

07 

09 

Q 

9£1 

07 

12 

9c  9 

ZOZ 

07 

08 

0 

0 

9£  1 

a  / 

OA 

02 

V  n  i  r 

a  uir 

9£A 

ZOH 

aa 

00 

11 

1  1 
1 1 

96  ^ 

ft/. 

04 

r\  c 

05 

rcecan  uir 

966 

ZOO 

ft  ft 
0(1 

11 

1 1 

967 

ft/. 

04 

01 

—  uir 

ZOO 

ft/\ 
00 

01 

1 
1 

96Q 

ZOV 

ft/. 

04 

15 

Kecan  Y 

97H 
Z  / 1 1 

a  a 

00 

01 

1 

971 

Z  / 1 

A"7 

0/ 

A  A 

(10 

A 

U 

979 

Z  /  Z 

a^ 

05 

AQ 

Oo 

CLcir->   if  V  S  Y 

oKip  IT  T  V  A 

973 

r\/. 

ftt 

(1  / 

Ot:d  1  CI  1 

21k 

f>7 

col  ovn 
ocl  tJXp 

Z  /  J 

ft/. 
04 

ft/ 
04 

Qf/M'Q  fill'' 

976 
Z  /  O 

00 

A1 

01 

1 
1 

Oil 
Z  /  / 

ftC 

On 

A  C 

(ID 

1 

97ft 

Z  /  0 

(14 

AA 

(Ml 

4-  nir 
T  Ulf 

97Q 

Z  /  r* 

ft /\ 
0(1 

AO 

02 

9 
C 

z  01 ' 

ft/. 

AQ 

do 

ivid  r  ft 

9P.1 

A"7 

0  / 

11 

f*h    c  ion 
LI  1 .  olgl  1 

989 
ZOZ 

ft/. 

(14 

1  c 

Id 

KcLdll  I 

9P.'* 

ft  ft 
0(1 

AO 

Oz 

0 

9RA 

Z  Of 

A"7 
(1  / 

AA 
(Ml 

n 
u 

z  O  J 

ft  c 

(13 

AO 

Oo 

QUin  if  V  ^  Y 
OKI P  1 1    I  A 

99.6 
Zoo 

ft/. 

04 

A  1 

07 

ocdrLII 

9P.7 
Zo  / 

(1  / 

1  A 
1(1 

cot  n 

bcl  cxp 

9P.P. 

()4 

ft/. 

04 

Qtrtro  ll  1  r* 

oiurc  uir 

9P.Q 

ftft 
0(1 

AO 

Oz 

z 

9Qft 

Z;M  F 

ftC 

On 

A  C 

05 

901 

zv  j. 

ft/. 
04 

AA 

00 

1  Hir 

uir 

9Q9 

ZV  Z 

ftft 

00 

A  O 
03 

0 
O 

90  ^ 

Z^  J 

ft/. 
(14 

A  Q 

(18 

Mark 

9QA 

Z  74 

0  7 

A  O 

03 

0 

9Q 

zy  j 

ft/. 

04 

15 

Kecan  1 

9Q6 

00 

A  O 

03 

0 
0 

9Q7 

zv  / 

A"7 

0/ 

A  A 

00 

zy  0 

ftC 

06 

06 

*  1 

Tl 

9QO 

Z"M 

AC 

05 

A  O 

08 

CLin  if  V  ^  Y 

oKip  IT  I  s  A 

ft/. 

(14 

A  A 
()() 

T"  Ull 

ftft 

00 

11 

1  1 

1  X 

jUZ 

ft/. 
04 

AO 

08 

Ma  rk 

jW-5 

AT 

0  7 

t  ft 

10 

set  exp 

r\/ 
04 

A  C 

05 

Kecan  uir 

JliJ 

ftft 
(Ml 

11 

1 1 
1 1 

306 

ft/. 
04 

A  A 
(10 

t  uir 

3fl7 

ftft 
00 

On 

D 

o.aq 

04 

08 

Mark 

309 

07 

08 

8 

310 

04 

05 

Recall  Dir 

Comments 
If  R   1  =  0,  GO  TO  Step  800. 

Calculate  additional  Et  from  rain  or  irrigation  within  three 
previous  days. 

£tr  =  .8x(.9-Kc)x£tp 
R_!  =  R-i  —  Etr 

If  R_i  >0,  GOTO  Step  302. 
R_!  =0 

R_2  —  R  —  2~I~R  —  1 

If  R_2  >  0,  GO  TO  Step  302. 
R-2  =0 

R  _3  =  R  -3  +  R-2 

lfR_3  <0,  Etr  =£tr  +R_3. 

Adjust  depletion. 
Dp  =DP  +£tr 


47 


o  i  cr/J 

Code 

Key 

Comments 

311 

00 

10 

10 

312 

04 

00 

+  Dir 

Dp  =  Dp  +  Et 

313 

00 

06 

6 

314 

04 

05 

Recall  Dir 

315 

00 

09 

9 

316 

04 

01 

-  Dir 

Dp  =  Dp  —  (Rain  +  Irrigation) 

317 

00 

06 

6 

318 

04 

15 

Recall  Y 

319 

00 

06 

6 

320 

07 

00 

0 

321 

05 

07 

Skip  if  Y  >  X 

322 

04 

04 

Store  Dir 

If  Dp  <0,  Dp  =0. 

323 

00 

06 

6 

324 

04 

05 

Recall  Dir 

325 

00 

01 

1 

326 

04 

06 

Dir 

R-2  =  R-i 

327 

00 

02 

2 

328 

04 

06 

^  Dir 

R  -3  =  R-2 

329 

00 

03 

3 

330 

04 

15 

Recall  Y 

331 

00 

09 

9 

332 

07 

12 

• 

333 

07 

09 

9 

334 

05 

08 

Skip  if  Y  <  X 

335 

06 

06 

u 

If  (R  +  /)  >  .9,  (R  +  /)  =  .9. 

336 

05 

14 

Go 

337 

04 

14 

Store  Y 

R_!  =(/?  +  /) 

338 

00 

01 

1 

339 

04 

07 

Search 

GO  TO  Step  388. 

340 

06 

14 

ex 

341 

04 

08 

Mark 

Calculate  crop  coefficient  after  effective  cover. 

342 

07 

05 

5 

343 

06 

01 

— 

344 

04 

14 

Store  Y 

r  =  Date  —  Effective  cover  date. 

345 

00 

11 

11 

346 

07 

02 

2   

Constant  A. 

347 

07 

07 

7 

348 

07 

05 

5 

349 

07 

10 

set  exp 

350 

07 

11 

ch.  sign 

351 

07 

05 

5 

352 

06 

02 

X 

353 

07 

04 

4    _ 

__  Constant  B. 

354 

07 

06 

6 

355 

07 

08 

8 

356 

07 

08 

8 

357 

07 

11 

ch.  sign 

358 

07 

10 

set  exp 

359 

07 

11 

ch.  sign 

360 

07 

03 

3 

361 

06 

00 

+ 

362 

04 

05 

Recall  Dir 
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Step 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 


Code 

00  11 

06  02 

07  12 
07  00 
07  01 
07  01 
07  09 
07  05 
06  00 

06  05 
04  02 
00  11 

07  12 
07  09 
07  01 
07  05 
04  00 
00  11 
07  04 
07  12 
07  00 
04  02 
00  07 
04  07 
07  06 
04  08 

06  14 

07  01 
04  00 
12  01 

04  15 
12  01 
07  01 
07  06 

05  07 

04  07 
07  04 

05  09 
04  07 

06  03 
04  07 
06  00 
04  08 
06  03 
04  05 
00  07 

04  15 
00  06 

05  08 
04  07 

06  02 

07  01 


Key 


Comments 


11 

X 


Constant  C. 


0 

1 

1 

9 

5 

+ 

i 

x  Dir 
11 


9 
1 

5 

+  Dir 
11 
4 
• 

0 

x  Dir 
7 

Search 
6 

Mark 

e* 

1 

+  Dir 

121 

121 

Recall  Y 

1 

6 

Skip  if  Y  >  X 

Search 

4 

Skip  if  Y  =  X 
Search 

Search 

+ 

Mark 

Recall  Dir 
7 

Recall  Y 
6 

Skip  if  Y  <  X 

Search 

X 

1 


Constant  D. 


Root  zone  depth  in  feet. 


Optimum  depletion  in  7. 
GO  TO  Step  194. 


Increment  Penman,  date  register. 


If  Penman  reg.  <  16,  GO  TO  Step  92. 

If  Penman  reg.  >  16,  GO  TO  Step  405. 
If  Penman  reg.  =  16,  GO  TO  Step  474. 


Compare  depletion  to  optimum  depletion,  D 


If  Dp  >D0,  GO  TO  Step  546. 
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C  fon 

Code 

fx  try 

415 

04 

00 

+  Dir 

416 

00 

08 

8 

417 

04 

15 

Recall  Y 

418 

00 

08 

8 

419 

07 

02 

2 

420 

07 

04 

4 

421 

07 

07 

7 

422 

05 

08 

Skip  if  Y  <  X 

423 

04 

07 

Sea  rch 

424 

07 

02 

2 

425 

07 

01 

1 

426 

07 

03 

3 

427 

07 

07 

7 

428 

06 

01 

— 

429 

07 

00 

0 

430 

05 

08 

Skip  if  Y  <  X 

431 

04 

07 

Search 

432 

07 

13 

X2 

433 

07 

01 

1 

434 

07 

05 

5 

435 

07 

00 

0 

436 

04 

08 

Mark 

437 

06 

12 

Vx 

438 

06 

03 

439 

06 

05 

i 

440 

07 

13 

X2 

441 

06 

14 

ex 

442 

06 

15 

1/X 

443 

06 

04 

T 

444 

07 

12 

• 

445 

07 

03 

3 

446 

07 

00 

0 

447 

06 

02 

X 

448 

04 

14 

Store  Y 

449 

00 

10 

10 

450 

07 

00 

0 

451 

04 

04 

Store  Dir 

452 

00 

09 

9 

453 

04 

07 

Search 

454 

06 

01 

— 

455 

04 

08 

Mark 

456 

07 

12 

• 

457 

04 

15 

Recall  Y 

458 

00 

03 

3 

459 

07 

00 

0 

460 

06 

06 

U 

461 

05 

08 

Skip  if  Y  <  X 

462 

04 

07 

Search 

463 

07 

08 

8 

464 

07 

12 

• 

465 

07 

03 

3 

466 

04 

02 

x  Dir 

Comments 
Increment  date. 


If  date  >  247,  GO  TO  Step  558. 
Calculate  average  potential,  Eta  . 

If  date  >  137,  GO  TO  Step  819. 
/date  =  150. 


Store  Eta  in  10. 

(R  +  /)  =  0 

GO  TO  Step  117. 

If  R_3  <  0,  GO  TO  Step  308. 

Etr  =.3x(.9-Kc)x£tp 
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Step 

Code 

Key 

Comments 

467 

00 

11 

11 

468 

04 

05 

Recall  Dir 

469 

00 

11 

11 

470 

04 

01 

—  Dir 

•»  —  3       "—3       ^  tr 

471 

00 

03 

3 

472 

04 

07 

Search 

GO  TO  SteD  293 

473 

07 

03 

3 

474 

04 

08 

Mark 

475 

06 

00 

+ 

476 

04 

05 

Recall  Dir 

477 

00 

05 

5 

478 

06 

08 

Integer  X 

479 

04 

11 

Write 

Print  field  number 

480 

03 

00 

3.0 

481 

04 

05 

Recall  Dir 

482 

00 

06 

6 

483 

04 

11 

Write 

Print  depletion. 

484 

05 

02 

5.2 

485 

04 

12 

Write  alnha 

486 

07 

02 

x  100 

487 

06 

04 

t 
1 

488 

04 

05 

Recall  Dir 

489 

00 

07 

7 

490 

04 

11 

Write 

Print  optimum  depletion. 

491 

05 

02 

5.2 

492 

07 

01 

1 

493 

04 

01 

-  Dir 

Decrement  field  register. 

494 

12 

00 

120 

495 

04 

05 

Recall  Dir 

Repack  field  data. 

496 

00 

05 

5 

497 

04 

12 

Write  alnha 

498 

07 

00 

x  1010 

499 

06 

00 

i 

500 

06 

05 

1 

501 

04 

15 

Recall  Y 

502 

12 

00 

120 

503 

05 

04 

Store  Indir 

Store  field  data. 

504 

07 

01 

1 

505 

04 

00 

+  Dir 

Inrrpmpnt  fipld  register 

506 

12 

00 

120 

507 

04 

00 

+  Dir 

Increment  Penman  repKter 

508 

12 

01 

121 

509 

04 

15 

Recall  Y 

510 

00 

00 

0 

511 

04 

05 

Recall  Dir 

Repack  second  half  of  data. 

512 

00 

04 

4 

513 

04 

12 

Write  alpha 

514 

07 

03 

x  1000 

515 

06 

00 

+ 

516 

04 

05 

Recall  Dir 

517 

00 

03 

3 

518 

04 

12 

Write  alpha 
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Step  Code  Key  Comments 

519  07  02  x  100 

520  06  08  Integer  X 

521  04  12  Write  alpha 

522  07  06  x  106 

523  06  00  + 

524  04  05  Recall  Dir 

525  00  02  2 

526  04  12  Write  Alpha 

527  07  02  x  100 

528  06  08  Integer  X 

529  04  12  Write  alpha 

530  07  08  x  108 

531  06  00  + 

532  04  05  Recall  Dir 

533  00  01  1 

534  04  12  Write  alpha 

535  07  02  x  100 

536  06  08  Integer  X 

537  04  12  Write  alpha 

538  07  00  x  1010 
530  06  00  + 

540  06  05  | 

541  04  15  Recall  Y 

542  12  00  120 

543  05  04  Store  Indir  Store  second  half  of  data. 

544  04  07  Search  GO  TO  Step  405. 

545  06  03  + 

546  04  08  Mark 

547  06  02  x 

548  06  01 

549  04  05  Recall  Dir 

550  00  10  10 

551  06  03  -5- 

552  06  05  I 

553  06  08  Integer  X 

554  04  01  -Dir  Adjust  irrigation  day  if  Dp  >  D0 . 

555  00  08  8 

556  04  05  Recall  Dir 

557  00  08  8 

558  04  08  Mark 

559  07  02  2 

560  04  11  Write  Print  irrigation  day. 

561  08  00  8.0 

562  04  11  Write 

563  15  10  10  spaces 

564  04  05  Recall  Dir  Unpack  efficiency,  calculate  inches  to  apply. 

565  00  05  5 

566  06  04  | 

567  06  08  Integer  X 

568  06  01 

569  06  05  | 

570  04  03  +  Dir 
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Step 


Code 


Key 


Comments 


571 

00 

06 

6 

572 

04 

12 

Write  alpha 

573 

07 

02 

x  100 

574 

06 

04 

1 

575 

06 

OR 

Intpppr  X 

576 

06 

01 

577 

06 

05 

1 

i 

578 

04 

12 

Write  alpha 

579 

07 

03 

x  1000 

580 

06 

08 

Integer  X 

581 

04 

12 

Write  alpha 

582 

04 

01 

x  10_1 

583 

06 

04 

t 

584 

04 

05 

Recall  Dir 

585 

00 

06 

6 

586 

06 

02 

x 

587 

04 

11 

Write 

588 

05 

01 

5.1 

589 

06 

05 

1 

590 

04 

11 

Write 

591 

08 

01 

8.1 

592 

04 

1  2 

write  aloha 

593 

01 

08 

CR/LF 

594 

04 

13 

End  alnha 

595 

07 

01 

1 

596 

04 

00 

+  Dir 

597 

12 

00 

1  ?0 

598 

04 

i  5 

JL  -J 

Rprall  Y 

lAclall  1 

599 

12 

00 

JL  £J\J 

600 

07 

04 

A 

601 

07 

04 

4 

602 

05 

07 

Skip  if  Y  >  X 

603 

04 

07 

Search 

604 

07 

01 

1 

605 

05 

15 

Stop 

606 

05 

15 

Stop 

607 

05 

15 

Stop 

800 

04 

08 

Ma  rk 

1 VI  d  1  r\ 

801 

07 

09 

9 

802 

04 

15 

Recall  Y 

803 

00 

02 

2 

Cm 

804 

07 

00 

o 

805 

06 

06 

t  1 
1 1 

806 

05 

08 

SkiD  if  Y  <  X 

807 

04 

07 

Oca  I  CI  I 

808 

07 

12 

• 

809 

07 

12 

• 

810 

07 

05 

5 

Print  inches  to  apply. 


Print  acre-inches  to  apply. 


Increment  register  number. 


o 


I—' 


If  reg.  number  <  44,  GO  TO  StejClffi 

CO 


Steps  608-799  contain  field  data. 


az 

CO 


If  R_2  £  0,  GO  TO  Step  455. 
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Step 

Code 

Key 

Comments 

811 

04 

02 

x  Dir 

E.  =  5  x  C  9  —  K  }  x  F. 

812 

00 

11 

11 

813 

04 

05 

Recall  Dir 

814 

00 

11 

11 

815 

04 

01 

—  Dir 

•  »  —  e.      ■»  —  z  '-tr 

816 

00 

02 

2 

817 

04 

07 

Search 

GO  TO  SteD  280 

818 

07 

11 

ch.  sign 

819 

04 

08 

Mark 

820 

07 

13 

X2 

821 

07 

00 

0 

/date  =  95 

822 

07 

OP 

9 

823 

07 

05 

5 

824 

04 

07 

Search 

GO  TO  Step  436. 

825 

06 

12 

Vx 

826 

05 

12 

End  Program 

1. 

Step 

600 

700 

3-  9 

116-118 

149-151 

120-122 

153-155 

127-132 

162-167 

134-138 

169-173 

142-147 

178-183 

150-154 

188-191 

168-169 

204-205 

346-351 

346-351 

353-360 

353-360 

364-469 

365-370 

372-375 

375-378 

377-379 

381-382 

291-292 

425-427 

294-296 

433-435 

298-2991 

444-446 

307-308 

821-823 

Adapting  the  Scheduling  Programs  for  Other  Crops 

Change 

Name. 

>  Rooting  depth  constants  (table  3). 


Constant  A 
Constant  8 
Constant  C 
Constant  D 


Constant  A 
Constant  B 
Constant  C 
Constant  D 


Before  effective  cover  equation  3  (table  2). 


Ratio  of  optimum  depletion  to  total  depletion. 

After  effective  cover  equation  3  (table  2). 
Decimal  occurs  prior  to  first  digit  when  entering  in  this 
manner  on  700. 

Root  zone  after  effective  cover  (table  3). 


Coefficients  for  equation  2. 


1  Coefficient  is  a  difference  between  A  DAY  before  and  after  effective  cover. 


54 


2.  Modifying  the  Penman  Programs  for  a  New  Calibration 


Step 


600 

700 

Coefficient 

112-116 

251-255 

-.044  (equation  li) 

118-120 

257-259 

.37 

(equation  li) 

126-128 

266-268 

107 

(equation  lh) 

130-132 

270-272 

157 

(equation  lh) 

137-139 

278-280 

760 

(equation  lh) 

143-144 

287-288 

.9 

(equation  lg) 

146-147 

290-291 

.1 

(equation  lg) 

D.  Changes  for  Model  700A  to  700B 


Step  700A  700B 

016  120  42 

020  120  42 

038  120  42 

040  120  42 

091  121  43 

095  121  43 

392  121  43 

394  121  43 

494  120  42 

502  ...  120  42 

506  120  42 

508  121  43 

542  120  42 

597  120  42 

599  120  42 

601  4  2 
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